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