如何防止kable表丢失？

【问题标题】：How to prevent loss of kable table?如何防止kable表丢失？
【发布时间】：2020-01-28 11:16:13
【问题描述】：

我正在尝试使用 R-markdown 创建简单的 .pdf 文档。它应该是：文本桌子文本表

  library("data.table") # Extension of data frame object functionality, get help with command: library(help = "data.table")
  library(knitr) # Library for displaying tables in markdown

  txtA <- "TEXT A TEXT A"  
  txtB <- "TEXT B TEXT B"

  tabA  <- data.table(High=c(125,250,360),                        
                   Low=c(19,9,36),                   
                   Middle=c(55,70,67))
  n1 <- 1
  n2 <- 1

  if (n1+n2!= 0) {
    if (n1!=0) {
      cat(paste0("\n","**",txtA,"**"))
      kable(tabA) 
    }
    if (n2!=0) {
      cat(paste0("\n","**",txtB,"**"))
      kable(tabA)
    }
  }

但是我得到文本文本表。一张桌子不见了。我的问题可能是什么原因造成的？

【问题讨论】：

标签： r data.table r-markdown kable

【解决方案1】：

在块中添加results='asis' 并将print() 放在kable() 周围。

#```{r, results='asis'}
library("data.table") # Extension of data frame object functionality, get help with command: library(help = "data.table")
library(knitr) # Library for displaying tables in markdown

txtA <- "TEXT A TEXT A"  
txtB <- "TEXT B TEXT B"

tabA  <- data.table(High=c(125,250,360),                        
                 Low=c(19,9,36),                   
                 Middle=c(55,70,67))
n1 <- 1
n2 <- 1

if (n1+n2!= 0) {
  if (n1!=0) {
    cat(paste0("\n","**",txtA,"**"))
    print(kable(tabA))
  }
  if (n2!=0) {
    cat(paste0("\n","**",txtB,"**"))
    print(kable(tabA))
  }
}
#```

或者将两个 kable 分成两个单独的块。

#```{r}
if (n1+n2!= 0) {
  if (n1!=0) {
    cat(paste0("\n","**",txtA,"**"))
    kable(tabA)
  }
}
#```

#```{r}
if (n1+n2!= 0) {
  if (n2!=0) {
    cat(paste0("\n","**",txtB,"**"))
    kable(tabA)
  }
}
#```

【讨论】：

感谢您的及时答复。帮了大忙。