From 43b807cc636cc748293b7e41480be670c962dbb1 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 4 Jul 2022 11:09:20 +0200
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20de=20la=20funci=C3=B3n=20de?=
 =?UTF-8?q?=20backup.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/BDAccess/app.R b/BDAccess/app.R
index 703156a..e6f03af 100644
--- a/BDAccess/app.R
+++ b/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.")   
         }
     })