Address tidyselect deprecations

- Don't use `.data` in tidyselect syntax; apply deprecation warning's suggestion
  to use quoted column names instead (but don't change the many places where we
  are using unquoted column names without the use of `.data$`).
- Don't use deprecated, ambiguous `select(character_vector_containing_colnames)`
  tidyselect syntax.

Author: lcbrooks

R/archive.R

@@ -477,7 +477,7 @@ epi_archive =
               unique(by = c("geo_value", "time_value", other_keys),
                      fromLast = TRUE) %>%
               tibble::as_tibble() %>% 
-              dplyr::select(-.data$version) %>%
+              dplyr::select(-"version") %>%
               as_epi_df(geo_type = self$geo_type,
                         time_type = self$time_type,
                         as_of = max_version,

R/epi_df.R

@@ -159,7 +159,7 @@ new_epi_df = function(x = tibble::tibble(), geo_type, time_type, as_of,
 
   # Reorder columns (geo_value, time_value, ...)
   if(sum(dim(x)) != 0){
-    x = dplyr::relocate(x, .data$geo_value, .data$time_value)
+    x = dplyr::relocate(x, "geo_value", "time_value")
   }
 
   # Apply epi_df class, attach metadata, and return

R/methods-epi_df.R

@@ -12,7 +12,9 @@
 #' @export
 as_tsibble.epi_df = function(x, key, ...) {
   if (missing(key)) key = c("geo_value", attributes(x)$metadata$other_keys)
-  return(as_tsibble(tibble::as_tibble(x), key, index = "time_value", ...))
+  return(as_tsibble(tibble::as_tibble(x),
+                    key = tidyselect::all_of(key), index = "time_value",
+                    ...))
 }
 
 #' Base S3 methods for an `epi_df` object