From 6945f1f6991fb0251956020813c01c86af4f0761 Mon Sep 17 00:00:00 2001 From: Fernando Rojas Date: Thu, 23 Nov 2023 10:51:27 -0600 Subject: [PATCH] Inicial --- R/curp.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/curp.R b/R/curp.R index 5ccf536..d871c83 100644 --- a/R/curp.R +++ b/R/curp.R @@ -70,8 +70,8 @@ # curp.do() edu_extract_curp <- function(curp,dato_a_obtener,fecha_calculo_edad=now()) { - estados <- read_csv("~/EduToolsR/data/edu_estados_mx.csv",show_col_types = F) - # readr::read_csv(system.file("data", "edu_estados_mx.csv", package = "EduToolsR"),show_col_types = F) + # estados <- read_csv("~/EduToolsR/data/edu_estados_mx.csv",show_col_types = F) + readr::read_csv(system.file("data", "edu_estados_mx.csv", package = "EduToolsR"),show_col_types = F) resultado <- curp %>%