Poder cambiar la ruta de la función sqlInitialize.

sqlFunctions.R

@@ -13,13 +13,13 @@ sqlLastDrop<-function(conn, tablename, droplast=1,dbtype=NULL){
     sqlSave(conn, table, tablename = tablename, safer = F)}
 }
 
-sqlInitialize<-function(){
+sqlInitialize<-function(ruta="ruta_database.R"){
   library(tidyverse)
   library(RODBC)
   library(openxlsx)
   
   ## Conexión a la base de datos
-  source("ruta_database.R", encoding = "UTF-8")
+  source(ruta, encoding = "UTF-8")
 }
 
 sqlBackUp<-function(dbfile=file,conn=dta,bu.dir=NULL){