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