Cambiar sistema de pedir contraseña.

2022-07-04 10:58:27 +02:00
parent a6f0c97d47
commit 6671939939
1 changed files with 3 additions and 3 deletions
@@ -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){