Update paths

luomus · Nov 8, 2024 · 3010667 · 3010667
1 parent 8a7095e
commit 3010667
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/download_descriptions.R b/download_descriptions.R
@@ -10,7 +10,7 @@ download_descriptions <- function(taxon) {
   taxon_id <- httr::RETRY(
     "GET",
     url = "https://laji.fi",
-    path = file.path("taxa", "search"),
+    path = file.path("api", "taxa", "search"),
     query = list(query = taxon)
   )
 
@@ -23,7 +23,7 @@ download_descriptions <- function(taxon) {
   res <- httr::RETRY(
     "GET",
     url = "https://laji.fi",
-    path = file.path("taxa", taxon_id, "descriptions"),
+    path = file.path("api", "taxa", taxon_id, "descriptions"),
     query = list(lang = "multi")
   )
 

diff --git a/download_photos.R b/download_photos.R
@@ -18,7 +18,7 @@ download_file <- function(taxon, path = "var/data/sp_images/org") {
   taxon_id <- httr::RETRY(
     "GET",
     url = "https://laji.fi",
-    path = file.path("taxa", "search"),
+    path = file.path("api", "taxa", "search"),
     query = list(query = taxon)
   )
 
@@ -31,7 +31,7 @@ download_file <- function(taxon, path = "var/data/sp_images/org") {
   res <- httr::RETRY(
     "GET",
     url = "https://laji.fi",
-    path = file.path("taxa", taxon_id, "media")
+    path = file.path("api", "taxa", taxon_id, "media")
   )
 
   res <- httr::content(res)