Convert code_dept to character

to use startsWith() and later, substr()
epiverse-trace · Nov 8, 2023 · dc4f33e · dc4f33e
1 parent ba81b50
commit dc4f33e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -234,6 +234,7 @@ obtener_info_depts <- function(dpto = NULL, munpio = NULL) {
 #' @export
 modficar_cod_mun <- function(code_dept, cod_mun) {
   cod_mun <- as.character(cod_mun)
+  code_dept <- as.character(code_dept)
   if (startsWith(code_dept, "0")) {
     code_dept <- substr(code_dept, 2, 2)
     cod_mun <- gsub(code_dept, "", cod_mun)
@@ -273,6 +274,7 @@ obtener_dptos <- function() {
 #'                      cod_mun = "001")
 #' @export
 obtener_nombres_muns <- function(data_geo, code_dept, cod_mun) {
+  code_dept <- as.character(code_dept)
   if (startsWith(code_dept, "0")) {
     code_dept <- substr(code_dept, 2, 2)
     cod_mun <- paste0(code_dept, cod_mun)