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){
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))
}
}

Loading…
Cancel
Save