Merge pull request #32 from eliansoutu/main

actualizo ls_srv
dnme-minturdep · Sep 1, 2023 · 2ef6e2d · 2ef6e2d
2 parents c850ff0 + 13b7c73
commit 2ef6e2d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ls_srv.R b/R/ls_srv.R
@@ -28,10 +28,10 @@ ls_srv <- function(ruta = NULL, full_names = F) {
           RCurl::getURL(url = paste0("sftp://", Sys.getenv("SRV_USER"),"@",Sys.getenv("SRV_IP"),
                                      "/DataDNMYE/", ruta, "/"),
                         userpwd = paste0(Sys.getenv("SRV_USER"),":", Sys.getenv("SRV_CLAVE")), .encoding = "UTF-8",
-                        dirlistonly = T, .opts = )),
+                        dirlistonly = T)),
         split = "\\n")[[1]])
 
-    resultados <- resultados[!grepl("\\.|\\.\\.", resultados)]
+    resultados <- resultados[!resultados %in% c(".","..")]
 
 
     if (full_names) {