windows – 将markdown斜体和粗体转换为乳胶

我有什么(注意在降价时已经转义的起始星号)：

x <- "*note: I *like* chocolate **milk** too ***much***!"

我想要的是什么：

"*note: I emph{like} chocolate textbf{milk} too textbf{emph{much}}!"

我不喜欢正则表达式,但更喜欢基础解决方案(虽然不是必需的).

愚蠢的业务：

helper <- function(ins,outs,x) {
    gsub(paste0(ins[1],".+?",ins[2]),paste0(outs[1],outs[2]),x)
}

helper(rep("***",2),c("textbf{emph{","}}"),x)

Error in gsub(paste0(ins[1],: 
  invalid regular expression '***.+?***',reason 'Invalid use of repetition operators'

如果有帮助的话,我有7000 Ananda Mahto帮我做的.您可以通过wheresPandoc< - reports ::: wheresPandoc从报告中访问它 编辑Per Ben的评论我试过：

action <- paste0(" echo ",x," | ",wheresPandoc()," -t latex ") 
system(action)

*note: I *like* chocolate **milk** too ***much***! | C:PROGRA~2Pandocbinpandoc.exe -t latex

EDIT2 Per Dason的评论我尝试过：

out <- paste("echo",shQuote(x),"|"," -t latex"); system(out)
system(out,intern = T)

> system(out,intern = T)
*note: I *like* chocolate **milk** too ***much***! | C:PROGRA~2Pandocbinpandoc.exe -t latex