在R中使用Rcurl的SCP函数

Question

我已经成功使用PuTTY测试了SSH身份验证，这意味着我可以使用提供的私钥将ssh到远程服务器。 但是，我试图从R中的Rcurl包中使用SCP函数， Rcurl收到错误消息：

函数错误（类型，msg，asError = TRUE）：身份验证失败

这是我的代码

r <- scp(host='eee.com', path = "/aaa/bbb/test.sas7bdat", 
         keypasswd = NA, user = "yyyyyy", rsa = TRUE, 
         key = "C:/Users/.ssh/authorized_keys", binary = NA)

C:/Users/.ssh/authorized_keys是我的RSA私钥。

Answer 1

我遇到了同样的问题，没有得到scp帮助，但是在getURLContent找到了一种解决方法：

x <- getURLContent("sftp://path/file", .opts = list( 
       ssh.private.keyfile = "path/keyfile",
       username="username",
       keypasswd="password"))

私钥应该是一个openSSH密钥（我必须转换我的puttygen密钥），并且当我必须下载二进制内容时，最后使用具有相同参数的getBinaryURL 。

Answer 2

问题是“密钥”必须同时包含公共密钥和私有密钥。 这应该工作：

r <- scp(host='eee.com', path = "/aaa/bbb/test.sas7bdat", keypasswd = NA, user = "yyyyyy", rsa = TRUE, key = c("C:/Users/.ssh/authorized_keys.pub","C:/Users/.ssh/authorized_keys"), binary = NA)