Poder cambiar la ruta de la función sqlInitialize.

2022-03-02 14:00:12 +01:00
parent 72f89330e6
commit 52f5ad865d
1 changed files with 2 additions and 2 deletions
@@ -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){