Start changes to both OV and UM.

sqlFunctions.R

@@ -15,7 +15,7 @@ sqlInitialize<-function(){
   source("ruta_database.R", encoding = "UTF-8")
 }
 
-sqlBackUp<-function(dbfile=file,bu.dir="BU_OVARIO"){
+sqlBackUp<-function(dbfile=file,bu.dir){
   db=strsplit(dbfile, "/")[[1]]%>% tail(n=1)
   bu_path<-gsub(db,bu.dir,dbfile)
   if (!dir.exists(bu_path)){

workflow.R

@@ -1,7 +1,10 @@
 source("sqlFunctions.R")
 
+## Asegurarse de que la variable file sea la que nos corresponde:
+file
+
 # Crear copia de seguridad
-sqlBackUp()
+sqlBackUp(bu.dir="BU_OVARIO")
 
 # Cargar dependencias
 sqlInitialize()