Poder cambiar la ruta de la función sqlInitialize.
This commit is contained in:
+2
-2
@@ -13,13 +13,13 @@ sqlLastDrop<-function(conn, tablename, droplast=1,dbtype=NULL){
|
|||||||
sqlSave(conn, table, tablename = tablename, safer = F)}
|
sqlSave(conn, table, tablename = tablename, safer = F)}
|
||||||
}
|
}
|
||||||
|
|
||||||
sqlInitialize<-function(){
|
sqlInitialize<-function(ruta="ruta_database.R"){
|
||||||
library(tidyverse)
|
library(tidyverse)
|
||||||
library(RODBC)
|
library(RODBC)
|
||||||
library(openxlsx)
|
library(openxlsx)
|
||||||
|
|
||||||
## Conexión a la base de datos
|
## 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){
|
sqlBackUp<-function(dbfile=file,conn=dta,bu.dir=NULL){
|
||||||
|
|||||||
Reference in New Issue
Block a user