Avoid some global variable notes while check package

inbo · Jul 17, 2023 · e283f95 · e283f95
1 parent 241325c
commit e283f95
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/map_dep.R b/R/map_dep.R
@@ -523,7 +523,7 @@ map_dep <- function(package = NULL,
     )
   } else if (feature == "rai") {
     feat_df <- get_rai(package, species = species, sex = sex, life_stage = life_stage, ...)
-    feat_df <- feat_df %>% dplyr::rename(n = rai)
+    feat_df <- feat_df %>% dplyr::rename(n = "rai")
   } else if (feature == "rai_individuals") {
     feat_df <- get_rai_individuals(
       package,
@@ -537,7 +537,7 @@ map_dep <- function(package = NULL,
       effort_unit <- "hour" # default value of get_effort()
     }
     feat_df <- get_effort(package, unit = effort_unit, ...)
-    feat_df <- feat_df %>% dplyr::rename(n = effort)
+    feat_df <- feat_df %>% dplyr::rename(n = "effort")
   }
 
   # define title legend

diff --git a/R/write_eml.R b/R/write_eml.R
@@ -209,8 +209,8 @@ write_eml <- function(package,
     taxonomy <- dplyr::filter(taxonomy, .data$taxonRank == "species")
   }
   sci_names <-
-    dplyr::rename(taxonomy, Species = scientificName) %>%
-    dplyr::select(Species)
+    dplyr::rename(taxonomy, Species = "scientificName") %>%
+    dplyr::select("Species")
 
   eml$dataset$coverage <- EML::set_coverage(
     begin = package$temporal$start,