r - 单个 .Rmd 可以同时生成降价表和 pdf 表吗？

Question

我正在尝试构建一个 .Rmd 文件，该文件生成一个降价表（用于 github）和一个 pdf 表（作为文件），以避免标题中的“表 1：”烦恼。我已尝试调整如何使用 xtable 或 knitr::kable 在 .Rmd 文件中抑制自动表名称和编号中描述的解决方案？，但我认为我正在污染 YAML 命令。我下面的代码构建了github兼容的markdown，但是pdf没有写。是否不支持两个输出或是否有 YAML 调整？谢谢你。

     ---
     title: "huh"
     output: 
      github_document: default
      pdf_document: default

     header-includes: 
       - \usepackage{caption}
       - \captionsetup[table]{labelformat=empty}

     always_allow_html: true
     ---

     ```{r makeStats, echo=FALSE, include=TRUE, results='asis', message=F, warning=T}

     library(tidyverse)
     library(dplyr)
     library(knitr)
     library(kableExtra)

     huh.tbl <- tribble(~period, ~cohens.d, ~SNHmean, 
                      "week 23", 0.4, 0.6)

     ````

     ```{r pdfTable, echo=FALSE, include=TRUE, results='asis', message=F, warning=T}

     knitr::kable(huh.tbl, 
      caption="please don't mess with me",
      col.names = linebreak(c("seasonal\nperiod", 
                    "Cohen's d\neffect size", 
                    "SNH\nmean)")),
      escape=FALSE,
      align = "lcc",
      row.names=FALSE,
      format="latex",
      booktabs=TRUE ) %>%

      kableExtra::column_spec(1,width = "20%") %>%
      kableExtra::column_spec(2,width = "20%") %>%
      kableExtra::column_spec(3,width = "20%") %>%

      kableExtra::save_kable(paste("/Users/xxx/Desktop", 
                                   "markdownTable", 
                                   ".pdf", 
                                   sep=""))

      ````


      ```{r markdownTable, echo=FALSE, include=TRUE, results='asis', message=F, warning=T}

      knitr::kable(huh.tbl, 
        caption="please don't mess with me",
        col.names = c("seasonal<br/>period", 
                    "Cohen's d<br/>effect size", 
                    "SNH<br/>mean"),
        escape=FALSE,
        full_width=TRUE,
        font_size=10,
        align = "lcc") %>%

      kableExtra::column_spec(1,width = "20%") %>%
      kableExtra::column_spec(2,width = "20%") %>%
      kableExtra::column_spec(3,width = "20%")

      ````

标签： rpdfgithubknitrkable