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