deprecated selecting vector syntax

R/calculate_errors.R

@@ -69,7 +69,7 @@ calculate_errors <- function(value, codigo_aglo = "Total", periodo_eph = "2014.0
   # Operacion
   tabla_referencia <- eph::errores_muestrales %>%
     dplyr::filter(codigo == codigo_aglo & periodo == periodo_eph) %>%
-    dplyr::select(x, measure)
+    dplyr::select(all_of(c("x", measure)))
 
   find_closest <- function(y) {
     tabla_referencia[[measure]][which.min(abs(tabla_referencia[["x"]] - y))]

R/calculate_poverty.R

@@ -51,7 +51,7 @@ calculate_poverty <- function(base, basket, print_summary = TRUE, window = "quar
         TRUE ~ situacion
       )
     ) %>%
-    dplyr::select(-adequi, -periodo, -CBA, -CBT)
+    dplyr::select(-any_of(c("adequi", "periodo", "CBA", "CBT")))
 
   if (print_summary) {
     if (window == "quarter") {

R/calculate_tabulates.R

@@ -244,7 +244,7 @@ calculate_tabulates <- function(base,
       dplyr::mutate(aux = sum(valor, na.rm = TRUE)) %>%
       dplyr::ungroup() %>%
       dplyr::mutate(prop = round((valor / aux) * 100, digits)) %>%
-      dplyr::select(-valor, -aux) %>%
+      dplyr::select(-any_of(c("valor", "aux"))) %>%
       tidyr::pivot_wider(names_from = var, values_from = prop)
 
     if (add.totals == "col") {
@@ -299,7 +299,7 @@ calculate_tabulates <- function(base,
     perc_row <- tabulado %>%
       dplyr::mutate(aux = rowSums(dplyr::across(dplyr::where(is.numeric)))) %>%
       dplyr::mutate(dplyr::across(c(names(tabulado)[2:ncol(tabulado)]), function(x) round((x / aux) * 100, digits))) %>%
-      dplyr::select(-aux)
+      dplyr::select(-any_of(c("aux")))
 
 
     if (add.totals == "col") {

R/get_eahu.R

@@ -77,7 +77,7 @@ get_eahu <- function(year = 2010,
       dplyr::mutate(filter_col = purrr::map_lgl(error, ~ !is.null(.x))) %>%
       dplyr::filter(filter_col) %>%
       dplyr::mutate(error_message = purrr::map(error, ~ purrr::pluck(.x, 1))) %>%
-      dplyr::select(-microdata, -error) %>%
+      dplyr::select(-any_of(c("microdata", "error"))) %>%
       tidyr::unnest(cols = c(error_message))
 
     if (nrow(errors) > 0) {
@@ -88,7 +88,7 @@ get_eahu <- function(year = 2010,
     }
 
     df <- df %>%
-      dplyr::select(-error)
+      dplyr::select(-any_of(c("error")))
 
     if (!is.null(destfile) & !destfile_exists) {
       saveRDS(df, file = destfile)
@@ -100,6 +100,6 @@ get_eahu <- function(year = 2010,
   } else {
     df %>%
       tidyr::unnest(microdata) %>%
-      dplyr::select(-c(year, type))
+      dplyr::select(-any_of(c("year", "type")))
   }
 }

R/get_eahu_internal.R

@@ -61,7 +61,7 @@ get_eahu_internal <- function(year = 2010,
 
     base <- base %>%
       dplyr::rename_all(toupper) %>%
-      dplyr::select(vars)
+      dplyr::select(all_of(vars))
 
     return(base)
   }

R/get_microdata.R

@@ -98,7 +98,7 @@ get_microdata <- function(year = 2018,
       dplyr::mutate(filter_col = purrr::map_lgl(error, ~ !is.null(.x))) %>%
       dplyr::filter(filter_col) %>%
       dplyr::mutate(error_message = purrr::map(error, ~ purrr::pluck(.x, 1))) %>%
-      dplyr::select(-microdata, -error) %>%
+      dplyr::select(-any_of(c("microdata", "error"))) %>%
       tidyr::unnest(cols = c(error_message))
 
     if (nrow(errors) > 0) {
@@ -109,7 +109,7 @@ get_microdata <- function(year = 2018,
     }
 
     df <- df %>%
-      dplyr::select(-error)
+      dplyr::select(-any_of(c("error")))
 
     if (!is.null(destfile) & !destfile_exists) {
       saveRDS(df, file = destfile)
@@ -121,6 +121,6 @@ get_microdata <- function(year = 2018,
   } else {
     df %>%
       tidyr::unnest(microdata) %>%
-      dplyr::select(-c(year, period, type))
+      dplyr::select(-any_of(c("year", "period", "type")))
   }
 }

R/get_microdata_internal.R

@@ -198,7 +198,7 @@ Mas informacon en: https://www.indec.gob.ar/ftp/cuadros/sociedad/anexo_informe_e
 
     base %>%
       dplyr::rename_all(toupper) %>%
-      dplyr::select(vars)
+      dplyr::select(all_of(vars))
   } else {
     base
   }

R/get_total_urbano.R

@@ -77,7 +77,7 @@ get_total_urbano <- function(year = 2016,
       dplyr::mutate(filter_col = purrr::map_lgl(error, ~ !is.null(.x))) %>%
       dplyr::filter(filter_col) %>%
       dplyr::mutate(error_message = purrr::map(error, ~ purrr::pluck(.x, 1))) %>%
-      dplyr::select(-microdata, -error) %>%
+      dplyr::select(-any_of(c("microdata", "error"))) %>%
       tidyr::unnest(cols = c(error_message))
 
     if (nrow(errors) > 0) {
@@ -88,7 +88,7 @@ get_total_urbano <- function(year = 2016,
     }
 
     df <- df %>%
-      dplyr::select(-error)
+      dplyr::select(-any_of(c("error")))
 
     if (!is.null(destfile) & !destfile_exists) {
       saveRDS(df, file = destfile)
@@ -100,6 +100,6 @@ get_total_urbano <- function(year = 2016,
   } else {
     df %>%
       tidyr::unnest(microdata) %>%
-      dplyr::select(-c(year, type))
+      dplyr::select(-any_of(c("year", "type")))
   }
 }

R/get_total_urbano_internal.R

@@ -81,7 +81,7 @@ get_total_urbano_internal <- function(year = 2016,
 
     base <- base %>%
       dplyr::rename_all(toupper) %>%
-      dplyr::select(vars)
+      dplyr::select(all_of(vars))
 
     return(base)
   }

R/organize_cno.R

@@ -64,7 +64,7 @@ organize_cno <- function(base) {
     dplyr::left_join(., calificacion,
       by = c("DIGIT5" = "value")
     ) %>%
-    dplyr::select(-c(CLASIF_CNO, DIGIT12, DIGIT3, DIGIT4, DIGIT5))
+    dplyr::select(-any_of(c("CLASIF_CNO", "DIGIT12", "DIGIT3", "DIGIT4", "DIGIT5")))
 
 
 

R/organize_panels.R

@@ -32,8 +32,8 @@ organize_panels <- function(bases, variables, window = "anual") {
   }
 
   bases_continua <- dplyr::bind_rows(bases) %>%
-    dplyr::select(CODUSU, NRO_HOGAR, COMPONENTE,
-                  ANO4, TRIMESTRE, CH04, CH06, variables) %>%
+    dplyr::select(all_of(c("CODUSU", "NRO_HOGAR", "COMPONENTE",
+                  "ANO4", "TRIMESTRE", "CH04", "CH06", variables))) %>%
     dplyr::filter(ESTADO != 0) %>%
     dplyr::mutate(Periodo = zoo::as.yearqtr(paste0(ANO4, " Q", TRIMESTRE)))