R语言转换html图像到png文件

电脑需要提前安装好"Chrome"浏览器

library(webshot2)
library(png)
f <- function(x){
    fileName = paste(strsplit(x,split = "_")[[1]][1],".png",sep = "")
    webshot2::webshot(x,fileName,vwidth = 461, vheight = 400,cliprect = "viewport") ### 转换 html 图像为png

    p <- readPNG(fileName) ### 打开本地png并编辑图片

    png(fileName)  ### 转换 本地png并编辑图片
    par(mfrow=c(1, 1), mar=c(0, 0, 2, 0)) ### 图布，mfrow设置行列数，mar设置边距
    plot.new()
    plot.window(xlim=c(0, 1), ylim=c(0, 1), asp=1)
    rasterImage(p, 0, 0, 1, 1)
    title(strsplit(x,split = "_")[[1]][1], font.main=2)
    dev.off()
    
}
lapply(dir(".",pattern = "your.html"), f)