|
|
@ -144,15 +144,15 @@ server <- function(input, output) { |
|
|
|
print(CCfile) |
|
|
|
if (input$dbtype == "UM"){ |
|
|
|
dta<<-odbcConnectAccess2007(access.file = UMfile, |
|
|
|
pwd = .rs.askForPassword("Enter password:")) |
|
|
|
pwd = getPass::getPass("Enter password:")) |
|
|
|
} |
|
|
|
if (input$dbtype == "OV"){ |
|
|
|
dta<<-odbcConnectAccess2007(access.file = OVfile, |
|
|
|
pwd = .rs.askForPassword("Enter password:")) |
|
|
|
pwd = getPass::getPass("Enter password:")) |
|
|
|
} |
|
|
|
if (input$dbtype == "CC"){ |
|
|
|
dta<<-odbcConnectAccess2007(access.file = CCfile, |
|
|
|
pwd = .rs.askForPassword("Enter password:")) |
|
|
|
pwd = getPass::getPass("Enter password:")) |
|
|
|
} |
|
|
|
print(dta) |
|
|
|
if (input$backup == T){ |
|
|
|