happier linter

cmu-delphi · Jun 25, 2024 · 4e1c26a · 4e1c26a
1 parent f4d32e3
commit 4e1c26a
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/R/epi_df.R b/R/epi_df.R
@@ -272,7 +272,8 @@ as_epi_df.tbl_df <- function(x, geo_type, time_type, as_of,
   x <- guess_geo_column_name(x)
   if (!test_subset(c("geo_value", "time_value"), names(x))) {
     cli_abort(
-      "Either columns `geo_value` and `time_value` must be present in `x`, or related columns (see the internal functions `guess_time_column_name()` and/or `guess_geo_column_name()` for a complete list)."
+      "Either columns `geo_value` and `time_value` must be present in `x`, or related columns (see the internal
+ functions `guess_time_column_name()` and/or `guess_geo_column_name()` for a complete list)."
     )
   }
 

diff --git a/R/utils.R b/R/utils.R
@@ -452,11 +452,11 @@ guess_time_type <- function(time_value) {
 #'   "date" -> c("date", "Date")
 #'   "target_date" -> c("target_date", "Target_Date")
 #' @keywords internal
-upcase_snake_case <- function(x) {
-  X <- strsplit(x, "_") %>%
+upcase_snake_case <- function(vec) {
+  VEC <- strsplit(vec, "_") %>%
     map(function(name) paste0(toupper(substr(name, 1, 1)), substr(name, 2, nchar(name)), collapse = "_")) %>%
     unlist()
-  c(x, X)
+  c(vec, VEC)
 }
 
 #' rename potential time_value columns

diff --git a/man/upcase_snake_case.Rd b/man/upcase_snake_case.Rd