From d3dcbc3d51f85130da8ad9396ac02b9981f5b07a Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Wed, 22 Nov 2023 15:56:39 +0100
Subject: [PATCH] =?UTF-8?q?Limpieza=20de=20c=C3=B3digo.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BDAccess/app.R | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index 711dd67..21a6dcd 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -157,28 +157,18 @@ server <- function(input, output) {
         print(dta)
         if (input$backup == T){
             if (! input$dbtype %in% c("UM","OV")){
-                sqlBackUp(dbfile = CCfile, bu.dir="CC_BU")
+              sqlBackUp(dbfile = CCfile, bu.dir="CC_BU")
             }
             if (input$dbtype == "UM"){
               sqlBackUp(dbfile = UMfile)
             }
             if (input$dbtype == "OV"){
-                sqlBackUp(dbfile = OVfile)
+              sqlBackUp(dbfile = OVfile)
             }
             print("Back up realizado.")   
         }
     })
     
-    # observe({
-    #     if (!is.null(input$file_access)){ 
-    #         # Inicializar conexión
-    #         dta<<-odbcConnectAccess2007(access.file = file, 
-    #                                    pwd = .rs.askForPassword("Enter password:"))
-    #         print(dta)
-    #         sqlBackUp()
-    #     }
-    # })
-    
     observe({
         if (!is.null(input$file_query)){
             ## Importamos los NHC de las muestras nuevas