From d339b8a5d0aa714b5e64878a57469059b173f944 Mon Sep 17 00:00:00 2001
From: eliansoutu <eliansoutul@gmail.com>
Date: Fri, 22 Mar 2024 11:28:43 -0300
Subject: [PATCH] actualizo write file srv

---
 R/write_file_srv.R | 71 ++++++++++++++++++++++++----------------------
 1 file changed, 37 insertions(+), 34 deletions(-)

diff --git a/R/write_file_srv.R b/R/write_file_srv.R
index 7f408f8..b693c8f 100644
--- 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")
+      #
+      # }
 
     }