有条件地在rmarkDown中包含带有R对象的HTML表？

Question

我正在研究一个自动生成一系列动态报告，并使用RmarkDown生成一系列动态报告。大多数报告都包含一个关于单个问题的表，尽管有几种案例有多个问题（请参见下文）。由于报告是动态生成的，因此HTML表的内容取决于R对象。

我如何设置我的rmarkDown html以有条件地评估并显示第二个表（通过诸如“ eval = has_two_qs”之类的参数或其他内容）？我已经尝试使用“ ASIS”或“ ECHO”更改块选项，但是它并没有触发R对象（例如，从字面上显示了R q2_text - 不是在该中指定的实际Q2_TEXT参数）。我还尝试通过在DIV内部包含数据存储来直接显示HTML表的部分，但这也不是我想要的地方。

示例（按预期工作，所有报告均具有Q1）：

<table border=1 frame=hsides rules=rows>  
  <tr>
    <td>Q1</td>
    <td>`r q1_text`</td>
  </tr>
  <tr>
    <td>Q1 key</td>
    <td>`r q1_answers`</td>
  </tr>
  <tr>
    <td> Q1 percent correct</td>
    <td>`r q1_pct_correct`</td>
  </tr>
</table>

我很难遇到的部分（引号中的选项失败，因为我不知道如何通过Markdown在此处显示它们）：

# ```(asis, echo = has_two_qs) # 
<table border=1 frame=hsides rules=rows>  
  <tr>
    <td>Q2</td>
    <td>`r q2_text`</td>
  </tr>
  <tr>
    <td>Q2 key</td>
    <td>`r q2_answers`</td>
  </tr>
  <tr>
    <td>Q2 percent correct</td>
    <td>`r q2_pct_correct`</td>
  </tr>
</table>

也不起作用：

<div data-show-if="has_two_qs">
<table border=1 frame=hsides rules=rows>  
  <tr>
    <td>Q2</td>
    <td>`r q2_text`</td>
  </tr>
  <tr>
    <td>Q2 key</td>
    <td>`r q2_answers`</td>
  </tr>
  <tr>
    <td> Q2 percent correct</td>
    <td>`r q2_pct_correct`</td>
  </tr>
</table>
</div>

Answer 1

使用@Guasi建议的一些解决方案，我能够通过使用HTMLTools软件包的HTML函数将一个不高的但可行的解决方案拼凑在一起：

{r, eval = has_two_qs, echo = FALSE}

tq2_1 <- "<table frame=hsides rules=rows>
  <tr>
    <td>SAQ Q2</td>
    <td>"
  
tq2_2 <- "</td>
  </tr>
  </table>"

然后：然后：

{r, eval = has_two_qs, echo=FALSE}
library(htmltools)
library(knitr)

HTML(tq2_1)
asis_output(saq2_text)
HTML(tq2_2)

Answer 2

该解决方案需要htmltools软件包。如果您可以将表的输出存储在变量中，则可以具有打印输出的IF语句。

{r echo=FALSE}
library(htmltools)
table_q2 = NULL
table_q2 <- "<table border=1 frame=hsides rules=rows>  
  <tr>
    <td>Q2</td>
    <td>`r q2_text`</td>
  </tr>
  <tr>
    <td>Q2 key</td>
    <td>`r q2_answers`</td>
  </tr>
  <tr>
    <td> Q2 percent correct</td>
    <td>`r q2_pct_correct`</td>
  </tr>
</table>"

{r echo=FALSE}
if (!is.null(table_q2)) HTML(table_q2)

在此示例中，您必须在没有table> table_q2输出时将table_q2初始化为null，否则请投诉。