Apply pkgname::func, avoid tidyselect warnings and notes

Related to #86, #128 and #119

NAMESPACE

@@ -18,45 +18,14 @@ export(visualize_pathways_level1)
 export(visualize_pathways_level2)
 export(visualize_pathways_year_level1)
 export(visualize_pathways_year_level2)
-importFrom(assertthat,assert_that)
-importFrom(assertthat,is.date)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,.data)
-importFrom(dplyr,all_vars)
-importFrom(dplyr,anti_join)
-importFrom(dplyr,any_vars)
-importFrom(dplyr,arrange)
-importFrom(dplyr,as_tibble)
-importFrom(dplyr,bind_rows)
-importFrom(dplyr,count)
-importFrom(dplyr,desc)
-importFrom(dplyr,distinct)
-importFrom(dplyr,filter)
-importFrom(dplyr,filter_at)
-importFrom(dplyr,group_by)
-importFrom(dplyr,inner_join)
-importFrom(dplyr,left_join)
-importFrom(dplyr,mutate)
-importFrom(dplyr,pull)
-importFrom(dplyr,rename)
-importFrom(dplyr,rename_at)
-importFrom(dplyr,select)
-importFrom(dplyr,starts_with)
-importFrom(dplyr,vars)
-importFrom(purrr,map2_chr)
-importFrom(purrr,pmap_dfr)
 importFrom(readr,read_tsv)
 importFrom(readr,write_tsv)
-importFrom(rgbif,name_usage)
 importFrom(rgbif,occ_download_meta)
 importFrom(rlang,"!!!")
 importFrom(rlang,"!!")
 importFrom(rlang,":=")
 importFrom(rlang,sym)
 importFrom(stringr,str_c)
-importFrom(stringr,str_remove)
-importFrom(stringr,str_split)
 importFrom(svDialogs,dlgInput)
-importFrom(tibble,tibble)
-importFrom(tidyselect,ends_with)
-importFrom(tidyselect,one_of)

R/gbif_verify_keys.R

@@ -105,7 +105,7 @@ gbif_verify_keys <- function(keys, col_keys = "key") {
     )
   }
   # as keys could contain duplicates, we make a copy called input_keys_df
-  input_keys_df <- tibble(key = as.numeric(keys))
+  input_keys_df <- dplyr::tibble(key = as.numeric(keys))
   # make list of unique keys
   keys <- unique(keys)
   names(keys) <- as.character(keys)
@@ -129,9 +129,9 @@ gbif_verify_keys <- function(keys, col_keys = "key") {
   if (length(valid_keys) > 0) {
     valid_keys_df <-
       valid_keys %>%
-      purrr::reduce(bind_rows) %>%
-      dplyr::mutate(is_from_gbif_backbone = ifelse(.data$datasetKey == uuid_backbone,
-        TRUE, FALSE
+      purrr::reduce(dplyr::bind_rows) %>%
+      dplyr::mutate(is_from_gbif_backbone = ifelse(
+        .data$datasetKey == uuid_backbone, TRUE, FALSE
       ))
     check_keys <-
       check_keys %>%