From 66719399392605b2eca60407c5607640d940108b Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Mon, 4 Jul 2022 10:58:27 +0200 Subject: [PATCH] =?UTF-8?q?Cambiar=20sistema=20de=20pedir=20contrase=C3=B1?= =?UTF-8?q?a.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- BDAccess/app.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/BDAccess/app.R b/BDAccess/app.R index 96c9229..1909ddd 100644 --- a/BDAccess/app.R +++ b/BDAccess/app.R @@ -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){