sqlFile<-function(file=1, list=F){
|
|
source("~/.BDpath.R", encoding = "UTF-8", local = T)
|
|
if (list){
|
|
print(sqlFiles)
|
|
}else{
|
|
return(sqlFiles[[file]])
|
|
}
|
|
}
|