R 用于向标记文件中的所有图像添加链接的脚本

我有一个工作流程，我将谷歌文档作为docx下载，然后将其处理为降价，以便在R环境中导出为其他格式

当我使用pandoc_convert转换为markdown时，我会得到嵌入的图像，但它们没有链接。 我想添加类似的链接语法

i、 e.我想要这个（不链接）：

！[女士](https://i.imgur.com/v8IVDka.jpg)

待（链接）：

[！[m'lady](https://i.imgur.com/v8IVDka.jpg)](https://i.imgur.com/v8IVDka.jpg)

---

对于文档中的每个图像。怎么办？

经过大量的努力，我将此功能组合在一起，解决了我的问题：

 addLinksToPhotos<-function(mdfile){
  d<-readLines(mdfile)
  s<-sapply(d,function(x) {
    replacementPattern="[\\1(\\2)](\\2)\\3"
    gsub('.*?(?<firstpart>!\\[[^\\]]*?\\])\\((?<filename>.*)\\)(?<potentialHTML>\\{.*?\\})?.*?',x=x,replacement=replacementPattern,perl=T)
  },USE.NAMES = F)
  writeLines(s,mdfile)
    }    

    #usage
    addLinksToPhotos("myRMarkdownDoc.rmd")

addLinksToPhotos