Corrección de la función de backup.

BDAccess/app.R

@@ -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.")   
         }
     })