|
|
@ -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){ |
|
|
|