r - 端末からRアプリケーションにパスワードを安全に与える方法は?

Question

getpassRには、Pythonのモジュールなど、ユーザーがパスワードを安全に提供できる機能がありますか?

(私の言いたいことの例については、http://docs.python.org/library/getpass.htmlを参照してください)

Answer 1

Rncurses問題は、R が実行されている端末を制御する機能 (のようなもの)を R が持っていないことです。おそらく、これは移植性の問題によるものです。
しばらく前、私は同じ問題に苦しんでいて、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)
   }