Corrección de la función de backup.

2022-07-04 11:09:20 +02:00
parent cb38ea347d
commit 43b807cc63
1 changed files with 8 additions and 4 deletions
@@ -157,11 +157,15 @@ server <- function(input, output) {
        print(dta)
        if (input$backup == T){
            if (! input$dbtype %in% c("UM","OV")){
-                sqlBackUp(bu.dir="CC_BU")
-            }else{
-                sqlBackUp()   
+                sqlBackUp(dbfile = CCfile, bu.dir="CC_BU")
            }
-                
+            if (input$dbtype == "UM"){
+              sqlBackUp(dbfile = UMfile)
+            }
+            if (input$dbtype == "OV"){
+                sqlBackUp(dbfile = OVfile)
+            }
+            print("Back up realizado.")   
        }
    })