Делает R, имеют функцию, которая позволяет пользователю обеспечивать пароль надежно, такой как Python getpass
модуль?
(см. http://docs.python.org/library/getpass.html для примера того, что я имею в виду),
Проблема в том, что у 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.