R스튜디오 SSH RSA key None 이고 생성 안될때

아래 명령어 입력. 

library(openssl)
key <- rsa_keygen()
write_pem(key, "~/../.ssh/id_rsa")
write_ssh(key$pubkey, "~/../.ssh/id_rsa.pub")