如何有条件地夸大/包括一系列本身包含内联代码的文本？

Question

我正在尝试创建一个R-Markdown文档的目的是自动报告我们学校中的笔试结果。它包括结果的两个数据可视化（参数化以考虑不同受试者和考试类型之间的差异）。

我的代码中有一个部分的目的是确定结果来自多少个单独的类

length(levels(data$class))

，并自动执行独立样本t检验或ANOVA来测试类之间的差异，将整个考试得分作为依赖多变的。

代码的这一部分正常。但是，随后是一段实际的文本，我也想参数化以自动报告所执行的任何测试的结果。它使用文本中的参数，如以下内容：

The results of the `r ifelse(length(levels(fulldata$Osztály)) > 2, "One-way ANOVA", " t-test")` were `r ifelse(p_val > 0.05, "non-significant", "significant")`

这可以正常工作，但是，我不确定如何处理所有结果来自单个类的情况。 P_VAL是在负责选择要执行测试的IF statement内部创建的全局变量，如果结果来自单个类，则它通过逻辑（由于未执行测试）而落下，并且没有生成P值，因此当它到达参数化文本时，r会引发错误。

是否可以在if statement上显示出实际的R-MAR​​KDOWN文本？ 整个代码

print(cat(.......))

我使用使用白色边框的HTML文档中显示了 ，但看起来很糟糕，并且与文档的其余部分不一致。我基本上正在寻找诸如eval =长度（级别（class））＆gt之类的东西。 2，仅适用于R-MAR​​KDOWN文件中的文本块。这可以做吗？

Answer 1

我将在R块中创建您的文本，然后在级别上更改IT。在块中：

f <- factor(c("a", "a", "a")) # replace with your factor variable 
sentence <- ""
if (length(levels(f)) > 1) {
  p_val <- .01 # and your p-value
  test <- ifelse(length(levels(f)) > 2, "One-way ANOVA", " t-test")
  test_result <- ifelse(p_val > 0.05, "non-significant", "significant")
  sentence <- paste0("The results of the ", test, " were ", test_result, ". ")
}

然后在文本中：

Here are the first results. `r sentence`The other results follow.

将打印，具体取决于级别：

这是第一个结果。其他结果如下。

这是第一个结果。 t检验的结果很重要。其他结果如下。

这是第一个结果。单向方差分析的结果是
重要的。其他结果如下。