diff --git a/NAMESPACE b/NAMESPACE index b8f5fc4..96bc701 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,4 +1,4 @@ -# Generated by roxygen2: do not edit by hand +remotes::install_github("traitecoevo/infinitylists")# Generated by roxygen2: do not edit by hand export(download_ala_obs) export(infinity_server) diff --git a/R/galah_download.R b/R/galah_download.R index bfb873b..1bfd59c 100644 --- a/R/galah_download.R +++ b/R/galah_download.R @@ -167,7 +167,7 @@ get_establishment_status <- function(ala_cleaned, taxon = taxon) { if (taxon == "Plantae") { resources <- APCalign::load_taxonomic_resources() lookup <- - APCalign::native_anywhere_in_australia(ala_cleaned$Species, resources = resources) + APCalign::native_anywhere_in_australia(unique(ala_cleaned$Species), resources = resources) lookup <- dplyr::rename(lookup, Species = species) @@ -258,14 +258,13 @@ save_data <- function(data, taxon, output_dir) { )) } -# galah_config(email = Sys.getenv("ALA_EMAIL"), -# atlas = "Australia") -# -# requireNamespace("job", quietly = TRUE) -# job::job(packages = c("purrr", "dplyr", "arrow", "janitor", "galah", "stringr", "lubridate", "infinitylists"), { -# download_ala_obs(taxon = "Papilionoidea") -# download_ala_obs(taxon = "Odonata") -# download_ala_obs(taxon = "Marsupialia") -# download_ala_obs(taxon = "Cicadoidea") -# download_ala_obs(taxon = "Plantae") -# }) +# galah::galah_config(email = "wcornwell@gmail.com") +# +# requireNamespace("job", quietly = TRUE) +# job::job(packages = c("purrr", "dplyr", "arrow", "janitor", "galah", "stringr", "lubridate", "infinitylists"), { +# download_ala_obs(taxon = "Papilionoidea") +# download_ala_obs(taxon = "Odonata") +# download_ala_obs(taxon = "Marsupialia") +# download_ala_obs(taxon = "Cicadoidea") +# download_ala_obs(taxon = "Plantae") +# })