微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

RMD转换为DOCx,无法在huxtable和其他表格单元内呈现{= openxml}块吗?

如何解决RMD转换为DOCx,无法在huxtable和其他表格单元内呈现{= openxml}块吗?

如何在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 文本不正确:“ 示例文本。 :t> :r> :p> ” 而不是md中的RAW或WORD:
示例文本。:t> :r> :p>

结果是我在WORD huxtable单元中遇到了输出错误的问题

问题:如何避免在MD文件中进行此转换?

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。