Способ безопасного доступа к R-приложению?

Ответ 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.

Ответ 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)
   }        

Ответ 3

Мой пакет keyringr решает эту проблему, получая пароли из основного ключа операционной системы (DPAPI в Windows, Keychain на OSX и Gnome Keyring на Linux).

vignette дает подробное объяснение того, как использовать пакет, но если вы использовали OSX и сохранили пароль Keychain, вы можете использовать следующую команду для возврата пароля в R (где mydb_myuser - имя элемента Keychain):

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

Ответ 4

Per m-dz в комментариях выше, теперь есть пакет для этого, называемый getPass, который имеет одну функцию, getPass(). Это замена для base::readline().

Ответ 5

Вот всплывающее имя входа, основанное на ? 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!"
      }
    })
  }
)