问题描述
如何在RMD到DOCx的表的单元格内获取呈现的openxml块? 我只是在表中得到了相同的openxml文本(mdt),而不是内容..
有什么建议吗?
xml_test.RMD:
更新的测试RMD代码:
---
output:
word_document:
reference_docx: ./template.docx
keep_md: yes
md_extensions: +raw_tex
editor_options:
chunk_output_type: console
---
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
```{r,setuplib,include=FALSE}
#library(tidyverse)
library(knitr)
#library(rmarkdown)
#library(dplyr)
#library(stringr)
library(huxtable)
library(kableExtra)
#library(ftExtra)
```
```{r,xml-test,echo=FALSE,collapse = FALSE}
# XML CONTENT
text_xml <- "<w:p><w:r><w:t>Example text.</w:t></w:r></w:p>"
sanitize(text_xml,type = "rtf")
knitr::asis_output(" \n")
sanitize(text_xml,type = "html")
knitr::asis_output(" \n")
#sanitize(text_xml,type = "latex")
#knitr::asis_output(" \n")
#to_ht <- c(knitr::asis_output(mdt),knitr::asis_output(mdt))
to_ht <- c(text_xml)
#ht <- huxtable::as_hux(to_ht,add_colnames = TRUE,add_rownames = TRUE,escape_contents=FALSE,autoformat = FALSE)
ht <- huxtable::as_hux(text_xml,add_colnames = FALSE,add_rownames = FALSE,autoformat = FALSE)
#markdown(ht) <- TRUE
#ht <- set_markdown(ht)
# BAD XML OUTPUT INSIDE CELLS
theme_grey(ht)
knitr::asis_output(" \n")
#knitr::asis_output(ht)
knitr::asis_output(" \n")
# norMAL XML OUTPUT HERE:
knitr::asis_output(as.character(text_xml))
```
我发现 as_hux()中的 sanizeize 文本不正确:“
“
结果是我在WORD huxtable单元中遇到了输出错误的问题
问题:如何避免在MD文件中进行此转换?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)