r - 使用 RGoogleDocs 时如何防止密码泄露？

Question

我爱 RGoogleDocs并且经常使用它。但是，我不喜欢一直输入密码。显然，我可以将密码输入到 R 脚本中，而不必再次输入。但那是不可行的，因为这意味着我的密码将在我的硬盘驱动器上未加密。此外，我与同事分享我的脚本。

为了解决这个问题，我想出了这个。

if(exists("ps")){
  print("got password, keep going")
} else {
  ps <-readline(prompt="get the password in ")
}

options(RCurlOptions = list(
  capath = system.file("CurlSSL", "cacert.pem", 
  package = "RCurl"), ssl.verifypeer = FALSE)
)

sheets.con = getGoogleDocsConnection(
  getGoogleAuth("notreal@gmail.com", ps, service ="wise")) 

#WARNING: this would prevent curl from detecting a 'man in the middle' attack
ts2=getWorksheets("hpv type",sheets.con)

我喜欢使用 RStudio。我感到不舒服的是，当时我办公室里的任何同事都可以看到我的密码。我使用了假密码，但请查看图像。 .此外，如果我保存了一个工作区，我的密码将与它一起保存，如果几个月后，当我早已忘记其中的内容时，我将我的 .RData提交给同事。

我在 earlier post 中阅读了有关 R 中密码的一般信息.在使用 RGoogleDocs 时，它没有给我足够的信息来隐藏我的密码。

Answer 1

我的方法是在 R 选项列表中设置登录名和密码
在 R 启动文件中 .Rprofile .然后我的代码获取值
与 getOption()然后该值永远不可见或存储
在 globalenv() 中的顶级变量中. (如果
一个通过 dump.frames 进行事后调试)。

至关重要的是 .Rprofile除了你之外的任何人都无法阅读。

所以

options(GoogleDocsPassword = c(login = 'password'))

在 .Rprofile进而

auth = getGoogleAuth()

只是作为第一个参数的默认值是寻找 GoogleDocsPassword选项。

D.