楚新元 | All in R

Welcome to R Square

用 R 更优雅地分享图片

楚新元 / 2021-10-17


目前我的个人主页采用 Hugo 框架、hugo-ivy 主题、blogdown 包搭建,GitLab 代码托管,Vercel 网站部署。自从有了这个网站,分享文件变得十分容易,比如,我只需要在 static/images 文件夹下放一张图片 Rlogo.png,那么我一旦推送到 GitLab,GitLab 一有动静就会触发 Vercel 自动部署。部署后这张图片的网址就一定是 https://cxy.rbind.io/images/Rlogo.png,所以只要用 blogdown 搭建一个网站,分享文件就是一件很容易的事情。

其实和本站不相关的文件我是很不情愿放进来的。所以我又搭建了另外一个网站,这个网站因为主要是分享图片为主,所以网站长什么样子就无关紧要了,足够轻量就好,这个网站另外一个用途是测试各种好玩的功能。最后选择了益辉的 hugo-xmin 主题,这个主题很适合 blogdown 初学者学习,删繁就简,极简风格,简约而不简单,后期可以在这个主题的基础上继续美化、增加功能,只有这样你的网站才是有灵魂的,拿来主义就像是看别人放烟花,毫无乐趣可言。

以前,对于分享图片这事,我是把图片放在 static/images 目录下,然后推送到 GitLab 上就可以了。但是最近看到叶寻的博客上有一篇文章《GitHub 图床教程》,他是通过 Python 自动将图片上传到 GitHub 上,这个思路给了我启发,是否可以用 R 实现呢?

搜了下 CRAN,果然没有让我失望,git2r 包可以实现在 R 中操纵 Git 向 GitLab 推送文件的需求。代码如下:

# 定义要上传到gitlab上的文件
file = "xxxx.png"
file_path = "/path/to/"
file_from = paste0(file_path, file)

# 把要上传的文件复制到本地指定目录下
local_repo = "/path/to/local_repo"
file_add = paste0(local_repo, "/static/images/", file)
file.copy(file_from, file_add)

# 推送文件到GitLab指定仓库
library(git2r)  # 安装git2r前务必先安装libssh2-1-dev
repo = init(local_repo)

add(repo, file_add)
commit(repo, paste("upload", file, sep = " "))
push(
  object = repo,
  name = "origin",
  refspec = "refs/heads/master",
  credentials = cred_ssh_key(),
  set_upstream = TRUE
)

# 生成图片的URL地址
img_url = paste0("博客地址/images/", file)
print(img_url)

运行上述代码就可以自动把图片上传到 GitLab 上,并输出图片的 URL 地址。但,在运行上述代码前,首先需要通过在 Git 里运行如下代码将密钥转化为 PEM 格式(重新创建 PEM 格式的密钥也是可以的,但是太麻烦)。

# id_rsa文件路径根据实际情况调整
ssh-keygen -p -m PEM -f ~/.ssh/id_rsa

最开始我这边没有把密钥转为 PEM 格式,在 push 那一步报错了,报错日志如下:

Error in push(object = repo, name = "origin", refspec = "refs/heads/master",  : 
  Error in 'git2r_push': Failed to authenticate SSH session: Unable to send userauth-publickey request

这个问题我向叶寻兄弟发邮件寻求帮助,他认认真真重现整个过程,并且通过谷歌搜索到了两个可能的答案,其中一个解决方案是删除私钥底部的空行,这个方案对于我这边无效,但是这个方案指向的一个链接另外一条评论给出的将密钥转化为 PEM 格式却有神奇疗效。在此隆重感谢叶寻兄弟的大力协助。