单个.Rmd能否同时生成降价表和pdf表?

单个.Rmd能否同时生成降价表和pdf表?,r,pdf,github,knitr,kable,R,Pdf,Github,Knitr,Kable,我试图构建一个.Rmd文件,生成一个降价表(对于github)和一个pdf表(作为文件),以避免标题中的“表1:”麻烦。我已尝试调整中描述的解决方案,但我认为我正在污染YAML命令。我下面的代码构建了与github兼容的标记,但没有编写pdf。是否有两个输出不受支持或存在YAML调整?多谢各位 --- title: "huh" output: github_document: default pdf_document:

我试图构建一个.Rmd文件,生成一个降价表(对于github)和一个pdf表(作为文件),以避免标题中的“表1:”麻烦。我已尝试调整中描述的解决方案,但我认为我正在污染YAML命令。我下面的代码构建了与github兼容的标记,但没有编写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%")

      ````
---
标题:“嗯”
输出:
github_文档:默认值
pdf_文档:默认值
标题包括:
-\usepackage{caption}
-\captionsetup[表]{labelformat=empty}
始终\u允许\u html:真
---
```{r makeStats,echo=FALSE,include=TRUE,results=asis',message=F,warning=T}
图书馆(tidyverse)
图书馆(dplyr)
图书馆(knitr)
图书馆(kableExtra)
嗯,待定%
kableExtra::列规格(1,width=“20%”%>%
kableExtra::列规格(2,width=“20%”%>%
kableExtra::列规格(3,width=“20%”%>%
kableExtra::保存(粘贴(“/Users/xxx/Desktop”,
“降价表”,
“.pdf”,
九月=”))
````
```{r markdownTable,echo=FALSE,include=TRUE,results='asis',message=F,warning=T}
克尼特:卡布尔(huh.tbl,
description=“请不要惹我”,
col.names=c(“季节性
时期”, “科恩的d
效应大小”, “SNH
平均值”), 逃逸=假, 全宽=真, 字体大小=10, align=“lcc”)%%>% kableExtra::列规格(1,width=“20%”%>% kableExtra::列规格(2,width=“20%”%>% kableExtra::列规格(3,width=“20%”) ````
据我所知,答案是否定的。但为什么不制作两个不同的.Rmd文件呢?pdf内容将成为(希望)已发表学术论文的一部分。我依靠github来提供表和数字周围的附加细节层,以及支持本文结论的数据和代码的真实透明度。不同的Rmd文件是一个选项,但透明度得分将受到影响。