Как предотвратить раскрытие моего пароля при использовании RGoogleDocs?

Я люблю 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 файл коллеге.

Я читал кое-что общее о паролях в R в более ранней публикации . Он не дал мне достаточно информации, чтобы скрыть мой пароль при использовании RGoogleDocs.