Merge pull request #293 from inbo/fix-292

Fix #292

Author: damianooldoni

Diff for: DESCRIPTION

@@ -1,6 +1,6 @@
 Package: camtraptor
 Title: Read, Explore and Visualize Camera Trap Data Packages
-Version: 0.22.0
+Version: 0.23.0
 Authors@R: c(
     person("Damiano", "Oldoni", email = "[email protected]",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0003-3445-7562")),

Diff for: R/check_species.R

@@ -47,7 +47,8 @@ check_species <- function(package = NULL,
 
   all_species <-
     get_species(package) %>%
-    dplyr::select(-c("taxonID", "taxonIDReference"))
+    dplyr::select(-dplyr::any_of(c("taxonID", "taxonIDReference")))
+  
   check_value(
     tolower(species),
     unlist(all_species) %>% tolower(),

Diff for: R/write_eml.R

@@ -167,7 +167,7 @@ write_eml <- function(package,
       )
     }
     # Sort contributors on order in creators
-    contributors <- arrange(contributors, factor(title, level = creators))
+    contributors <- dplyr::arrange(contributors, factor(title, level = creators))
   }
   creator_list <- purrr::transpose(contributors) # Create list
   message(glue::glue(

Diff for: R/zzz.R

@@ -383,8 +383,8 @@ add_taxonomic_info <- function(package) {
       # Keep only the taxonID added by join with taxonomy
       observations <-
         observations %>%
-        rename("taxonID" = "taxonID.y") %>%
-        select(-"taxonID.x")
+        dplyr::rename("taxonID" = "taxonID.y") %>%
+        dplyr::select(-"taxonID.x")
     }
     package$data$observations <- observations
   }