From d5cdd2d8495eb9ed62f8c955697a62f2f37bbac1 Mon Sep 17 00:00:00 2001
From: ECiardullo <64991969+ECiardullo@users.noreply.github.com>
Date: Sun, 20 Oct 2024 01:09:39 -0300
Subject: [PATCH] Update check_repository.R

---
 R/check_repository.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/check_repository.R b/R/check_repository.R
index 27915fe..e2796de 100644
--- 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",  ]