Rmarkdown文件上传CSDN

1 创建图床数据库

如何搭建自己的图床(GitHub版)

MacOS安装dmg提示已文件已损坏的解决方法

2 修改md文件

(1) Rmd文件转换成md

library(readr) 
library(stringr) 
rm(list = ls()) 

整页代码需要修改的地方：文件名和github仓库名

filename = "test" ###文件名
Github_user_repository_branch = "user/repository/branch" ###Github用户名/仓库名/分支名

rmdn = paste0(filename,".Rmd")
mdn = paste0(filename,".md")
imagebed = paste0("https://raw.githubusercontent.com/",Github_user_repository_branch,"/")
knitr::knit(input = rmdn, output = mdn)

## 
## 
## processing file: test.Rmd

## output file: test.md

md转换代码会自动生成figure文件夹，里面包含所有Rcode生成的图片

(2) 提取 “图片路径fig” 及 “图片名称figg”

md = read_file(mdn)
a = str_extract_all(md,c("figure.*png","figure.*jpg"))
fig = unlist(a) ;fig

## [1] "figure/unnamed-chunk-19-1.png" "figure/unnamed-chunk-25-1.png" "figure2/dataframebind.jpg"

figure2文件夹为手动创建，里面放非Rcode生成图片

figg = str_split_i(fig,"/",2);figg

## [1] "unnamed-chunk-19-1.png" "unnamed-chunk-25-1.png" "dataframebind.jpg"

(3) 将图片本地路径修改为图床路径

for (i in 1:length(fig)) {
  md = str_replace_all(md,
                       fig[i],
                       paste0(imagebed,figg[i]))
}
#检查一下是否成功
unlist(str_extract_all(md,c("https.*png","https.*jpg")))

## [1] "https://raw.githubusercontent.com/user/repository/branch/unnamed-chunk-19-1.png"
## [2] "https://raw.githubusercontent.com/user/repository/branch/unnamed-chunk-25-1.png"
## [3] "https://raw.githubusercontent.com/user/repository/branch/dataframebind.jpg"

(4) 导出修改好的md文件，将figure和figure2文件夹中的图片上传PicGo

newmdn = paste0(filename,2,".md")
write_file(md,newmdn) #filename2

3 上传CSDN