Browse Source

Cambiar a return.

main
Costa 2 years ago
parent
commit
5f62157351
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      R/sqlConnect.R

+ 3
- 3
R/sqlConnect.R

@ -1,9 +1,9 @@
sqlConnect<-function(file, pass=T){ sqlConnect<-function(file, pass=T){
sqlInitialize() sqlInitialize()
if (pass){ if (pass){
dta<-odbcConnectAccess2007(access.file = file,
pwd = .rs.askForPassword("Enter password:"))
return(odbcConnectAccess2007(access.file = file,
pwd = .rs.askForPassword("Enter password:")))
}else{ }else{
dta<-odbcConnectAccess2007(access.file = file)
return(odbcConnectAccess2007(access.file = file))
} }
} }

Loading…
Cancel
Save