Limpieza de código.

2023-11-22 15:56:39 +01:00
parent faffd13524
commit d3dcbc3d51
1 changed files with 2 additions and 12 deletions
@@ -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