From 3bf0b8e8912fc3b436ebf5e02b99e6c663d51d7c Mon Sep 17 00:00:00 2001
From: 401118 <401118@hdi.de>
Date: Tue, 16 Jul 2024 10:12:27 +0200
Subject: [PATCH] fixing imgpath in images_scrap

---
 R/images_scrap.R | 2 +-
 R/pdfs_scrap.R   | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/images_scrap.R b/R/images_scrap.R
index 41f70b0..14d4690 100644
--- 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
index e75df60..14e3367 100644
--- a/R/pdfs_scrap.R
+++ b/R/pdfs_scrap.R
@@ -51,7 +51,6 @@
         }
       }
 
-
     )
 
   }
@@ -59,7 +58,6 @@
 }
 
 
-
 #' Scrape and download pdf files from a Web Page
 #'
 #' @param link the link of the web page