Update check_repository.R

SoyAndrea · Oct 20, 2024 · d5cdd2d · d5cdd2d
1 parent 5105300
commit d5cdd2d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/check_repository.R b/R/check_repository.R
@@ -12,8 +12,8 @@ check_repository <- function( year = 1970, topic = NULL, geolvl = NULL){
 
   if(year != 1970) stop(paste0("El año ", year, " todavia no fue cargado en AR_CENSO o no es un año censal"))
 
-  load("data/info_cuadros_arcenso.rda")
-  repo <- list.files("data/", full.names = T)
+
+  #repo <- list.files(paste0(system.file("extdata", package = "arcenso"),"/"), full.names = T)
 
   selec <- info_cuadros_arcenso[info_cuadros_arcenso$anio %in% year & info_cuadros_arcenso$PKG %in% "SI",  ]