Hacer que el source sea local para que se almacenen las variables.

R/sqlFile.R

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