Correct workflow to merge.

Merge branch 'main' of https://git.ratg.cat/marcelcosta/BDAccess

# Conflicts:
#	workflow.R

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

@@ -3,6 +3,9 @@ source("sqlFunctions.R")
 # Cargar dependencias
 sqlInitialize()
 
+## Asegurarse de que la variable file sea la que nos corresponde:
+file
+
 # Crear copia de seguridad
 sqlBackUp()