Merge pull request #33 from eliansoutu/main

actualizo write file srv
dnme-minturdep · Mar 22, 2024 · 0c7c9c8 · 0c7c9c8
2 parents 2ef6e2d + d339b8a
commit 0c7c9c8
Showing 1 changed file with 37 additions and 34 deletions.
diff --git a/R/write_file_srv.R b/R/write_file_srv.R
@@ -26,19 +26,19 @@ write_file_srv <- function(x, ruta, ...) {
 
     if(Sys.info()["nodename"] != "dev-rstudio-vra-ubuntu") {
 
-      check <- paste0("/srv/DataDNMYE/", ruta) %in% herramientas::ls_srv(sub("/[^/]+$", "", ruta))
-
-      if (check == TRUE) {
-
-        user_response <- readline(prompt="El archivo ya existe. Desea sobreescribirlo? (si/no): ")
-
-      } else {
-
-        user_response <- "si"
-
-      }
-
-      if (user_response == "si") {
+      # check <- paste0("/srv/DataDNMYE/", ruta) %in% herramientas::ls_srv(sub("/[^/]+$", "", ruta))
+      #
+      # if (check == TRUE) {
+      #
+      #   user_response <- readline(prompt="El archivo ya existe. Desea sobreescribirlo? (si/no): ")
+      #
+      # } else {
+      #
+      #   user_response <- "si"
+      #
+      # }
+
+      #if (user_response == "si") {
 
         temp_file <- tempfile()
 
@@ -76,29 +76,30 @@ write_file_srv <- function(x, ruta, ...) {
 
         message("Escritura realizada")
 
-      } else {
-
-        message("Escritura cancelada")
-
-      }
+      # }
+      # else {
+      #
+      #   message("Escritura cancelada")
+      #
+      # }
 
     } else {
 
       ruta <- paste0("/srv/DataDNMYE/",ruta)
 
-      check <- file.exists(ruta)
-
-      if (check == TRUE) {
-
-        user_response <- readline(prompt="El archivo ya existe. Desea sobreescribirlo? (si/no): ")
-
-      } else {
+      # check <- file.exists(ruta)
+      #
+      # if (check == TRUE) {
+      #
+      #   user_response <- readline(prompt="El archivo ya existe. Desea sobreescribirlo? (si/no): ")
+      #
+      # } else {
+      #
+      #   user_response <- "si"
+      #
+      # }
 
-        user_response <- "si"
-
-      }
-
-      if (user_response == "si") {
+      #if (user_response == "si") {
 
 
         if (ext == "csv") {
@@ -132,11 +133,13 @@ write_file_srv <- function(x, ruta, ...) {
         }
         message("Escritura realizada")
 
-      } else {
-
-        message("Escritura cancelada")
+      #}
 
-      }
+      # else {
+      #
+      #   message("Escritura cancelada")
+      #
+      # }
 
     }