find output.pdf in chome_bin directry

6 years ago · 88959ceb8e
1 changed files with 1 additions and 1 deletions
--- a/R/chrome-pdf.r
+++ b/R/chrome-pdf.r
@ -94,7 +94,7 @@ chrome_dump_pdf <- function(url, path=NULL, overwrite=TRUE, prime=TRUE,

  }

-  file.copy("output.pdf", out_fil, overwrite = overwrite)
+  file.copy(file.path(dirname(chrome_bin), "output.pdf"), out_fil, overwrite = overwrite)

  return(invisible(out_fil))