скрипт для добавления ссылок на все изображения в файле уценки - PullRequest
Новая
       30

скрипт для добавления ссылок на все изображения в файле уценки

0 голосов
/ 18 января 2020

У меня есть рабочий процесс, где я загружаю Google Docs как docx, а затем обрабатываю их в уценке для экспорта в другие форматы в среде R.

Когда я конвертирую в уценку с помощью pandoc_convert, я получаю встроенные изображения , но они не связаны. Я хочу добавить синтаксис ссылки, похожий на этот пост ,

т.е. я хочу это (не связано): ![m'lady](https://i.imgur.com/v8IVDka.jpg)

m'lady

быть (связаны): [![m'lady](https://i.imgur.com/v8IVDka.jpg)](https://i.imgur.com/v8IVDka.jpg) m'lady

для каждого изображения в документе. Как это сделать?

1 Ответ

0 голосов
/ 18 января 2020

После долгих трудов я собрал эту функцию, которая решает мою проблему: 

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

Она будет читать каждую строку в файле уценки в поисках шаблона ![]() для фотографий, в том числе и там, где он имеет кодирование стиля в фигурных скобках ![](){}. Это изменит каждый экземпляр, чтобы иметь связанное изображение [![]()](){}.

...