nationalparkservice · RobLBaker · Dec 7, 2023 · Dec 4, 2023 · Dec 7, 2023 · Dec 7, 2023
diff --git a/.gitignore b/.gitignore
@@ -6,3 +6,4 @@ dataPackages/*
 data/raw/*
 data/raw/*/*
 inst/doc
+data/
diff --git a/R/EML_to_dataframe.R → R/load_EML_df.R b/R/EML_to_dataframe.R → R/load_EML_df.R
@@ -20,12 +20,18 @@
 #' df <- load_EML_df(1234567)
 #' }
 #' 
-load_EML_df <- function(ds_ref, directory = here::here("data")){
+load_EML_df <- function(ds_ref, path = paste0(getwd(), "/data")){
   #construct path to downloaded data package:
-  path <- here::here(directory, ds_ref)
+  #capture current/original working directory:
+  origin_wd <- getwd()
+  #set directory back to original working directory on exit.
+  on.exit(setwd(origin_wd), add=TRUE)
+
+  setwd(path)
+  directory <- paste0(path, "/", ds_ref)
 
   #load metadata
-  metadata <- DPchecker::load_metadata(directory = path)  
+  metadata <- DPchecker::load_metadata(directory = directory)  
 
   title <- EMLeditor::get_title(metadata)
   pub_date <- metadata$dataset$pubDate
@@ -65,7 +71,7 @@ load_EML_df <- function(ds_ref, directory = here::here("data")){
   license_name <- metadata$dataset$licensed$licenseName
 
   #get files lists:
-  files <- list.files(path=path, pattern = "*.csv")
+  files <- list.files(path=directory, pattern = "*.csv")
   file_names <- data.frame(files, files)
   file_names$eml_element <- "data_file"
   file_names <- file_names[,c(3,1,2)]

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,5 +3,5 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   NPSutils: NPSutils.html
-last_built: 2023-12-04T18:45Z
+last_built: 2023-12-07T16:11Z
 
diff --git a/docs/reference/dot-get_authors.html b/docs/reference/dot-get_authors.html
diff --git a/docs/reference/dot-get_contacts.html b/docs/reference/dot-get_contacts.html
diff --git a/docs/reference/load_EML_df.html b/docs/reference/load_EML_df.html
diff --git a/man/dot-get_authors.Rd b/man/dot-get_authors.Rd
diff --git a/man/dot-get_contacts.Rd b/man/dot-get_contacts.Rd
diff --git a/man/load_EML_df.Rd b/man/load_EML_df.Rd