用于在 Markdown 文件中添加指向所有图像的链接的脚本

【问题标题】：script to add links to all images in markdown file用于在 Markdown 文件中添加指向所有图像的链接的脚本
【发布时间】：2020-01-17 23:55:14
【问题描述】：

我有一个工作流程，我将 Google Docs 下载为 docx，然后将它们处理为 markdown 以导出到 R 环境中的其他格式。

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

即我想要这个（未链接）： ![m'lady](https://i.imgur.com/v8IVDka.jpg)

被（链接）： [![m'lady](https://i.imgur.com/v8IVDka.jpg)](https://i.imgur.com/v8IVDka.jpg)

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

【问题讨论】：

标签： r markdown r-markdown

【解决方案1】：

经过一番辛劳，我把这个函数放在一起，解决了我的问题：

 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")

它将读取降价文件中的每一行，寻找照片![]() 模式，包括它在大括号![](){} 中的样式编码。它将修改每个实例以具有链接图像[![]()](){}。

【讨论】：