如何安全地給R應用程序提供密碼？

Question

R是否有一個允許用戶安全地提供密碼的函數，比如Python的getpass模塊？

（參見http://docs.python.org/library/getpass.html用於我的意思的一例）

Answer 1

的問題是，R不具備的功能，以控制它在（像Rncurses）運行的終端;可能這是由於可移植性問題。
前段時間我同樣的問題掙扎，我結束了使用TclTk功能：

getPass<-function(){ 
    require(tcltk); 
    wnd<-tktoplevel();tclVar("")->passVar; 
    #Label 
    tkgrid(tklabel(wnd,text="Enter password:")); 
    #Password box 
    tkgrid(tkentry(wnd,textvariable=passVar,show="*")->passBox); 
    #Hitting return will also submit password 
    tkbind(passBox,"<Return>",function() tkdestroy(wnd)); 
    #OK button 
    tkgrid(tkbutton(wnd,text="OK",command=function() tkdestroy(wnd))); 
    #Wait for user to click OK 
    tkwait.window(wnd); 
    password<-tclvalue(passVar); 
    return(password); 
} 

當然也不會在非GUI環境中工作。

Answer 2

終端安全密碼的問題非常簡單的Linux概念：

password <- function(prompt = "Password:"){ 
     cat(prompt) 
     pass <- system('stty -echo && read ff && stty echo && echo $ff && ff=""', 
         intern=TRUE) 
     cat('\n') 
     invisible(pass) 
    }   

Answer 3

我的包keyringr在Linux系統上的Windows，鑰匙扣從底層操作系統鑰匙圈取回密碼（DPAPI在OSX和侏儒匙扣解決了這個問題）。

的vignette給出瞭如何使用該軟件包的詳細說明，但如果你使用OSX和有密碼保存在鑰匙串，你可以使用以下命令將密碼返回R（其中mydb_myuser是鑰匙扣項目名稱）：

install.packages("keyringr") 
library("keyringr") 
mypwd <- decrypt_kc_pw("mydb_myuser") 
print(mypwd) 

Answer 4

這裏是一個登錄彈出，基於?modalDialog。

library("shiny") 

shinyApp(
    ui <- basicPage(
    actionButton("login", "Login"), 
    verbatimTextOutput("secrets") 
), 

    server <- function(input, output, session) { 
    vals <- reactiveValues(authenticated=FALSE) 

    passwordModal <- function(message=NULL) { 
     modalDialog(
     textInput("username", "Username", input$username), 
     passwordInput("password", "Password", input$password), 

     if (!is.null(message)) div(tags$b(message, style="color: red;")), 

     footer = tagList(
      modalButton("Cancel"), 
      actionButton("authenticate", "OK") 
     ) 
    ) 
    } 

    observeEvent(input$login, { 
     showModal(passwordModal()) 
    }) 

    observeEvent(input$authenticate, { 
     vals$authenticated <- FALSE 
     if (!is.null(input$username) && nzchar(input$username) && 
      !is.null(input$password) && nzchar(input$password)) { 
     removeModal() 

     if (input$password == "letmein") { 
      vals$authenticated <- TRUE 
     } else { 
      showModal(passwordModal(message="Incorrect password!")) 
     } 

     } else { 
     showModal(passwordModal(message="Please fill in your username and password")) 
     } 
    }) 

    output$secrets <- renderText({ 
     if (vals$authenticated) { 
     paste("Don't tell anyone, ", input$username, ", but...", sep="") 
     } else { 
     "I can't tell you that!" 
     } 
    }) 
    } 
) 

Answer 5

每在上述評論m-dz，有一個現在的封裝，這樣叫getPass，其中有一個功能單一，getPass()。這是base::readline()的替代品。