fixing imgpath in images_scrap

feddelegrand7 · Jul 16, 2024 · 3bf0b8e · 3bf0b8e
1 parent 6291795
commit 3bf0b8e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/R/images_scrap.R b/R/images_scrap.R
@@ -99,7 +99,7 @@ images_scrap <- function(link,
     for (i in seq_along(img_urls_f)) {
 
       download.file(img_urls_f[i],
-                    destfile = basename(img_urls_f[i]),
+                    destfile = paste0(imgpath, "/", basename(img_urls_f[i])),
                     mode = "wb")
 
     }

diff --git a/R/pdfs_scrap.R b/R/pdfs_scrap.R
@@ -51,15 +51,13 @@
         }
       }
 
-
     )
 
   }
 
 }
 
 
-
 #' Scrape and download pdf files from a Web Page
 #'
 #' @param link the link of the web page
-Original file line number
+Diff line change
@@ Expand Up / @@ -51,15 +51,13 @@ @@
             }
           }
         )
       }
     }
     #' Scrape and download pdf files from a Web Page
     #'
     #' @param link the link of the web page
@@ Expand Down @@