Cambiar a return.

2022-02-23 16:28:49 +01:00
parent 04efc55fd2
commit 5f62157351
1 changed files with 3 additions and 3 deletions
@@ -1,9 +1,9 @@
 sqlConnect<-function(file, pass=T){
  sqlInitialize()
  if (pass){
-    dta<-odbcConnectAccess2007(access.file = file,
-                               pwd = .rs.askForPassword("Enter password:"))
+    return(odbcConnectAccess2007(access.file = file,
+                               pwd = .rs.askForPassword("Enter password:")))
  }else{
-    dta<-odbcConnectAccess2007(access.file = file)
+    return(odbcConnectAccess2007(access.file = file))
  }
 }