我刚刚开始学习函数中的 ifelse 语句。这是一个简化的示例:
library(knitr)
Tab <- iris
my_kable <- function(x, html = TRUE) {
if(html) { # any expression here in parentheses is evaluated before it's passed on to the if statement
kable(x, kable_input = "html")
} else {
kable(x, kable_input = "latex")
}
}
my_kable(Tab, html = FALSE)
问题出在 R Markdown 中,无论我输入“html = FALSE”还是“html = TRUE”,我都会得到相同的结果(一个 HTML 表格)。我知道我错过了一些非常简单的东西......
更新
我的错!我正在尝试 knitr 中不存在的选项。这有效:
if(html) {
kable(x, format = "html")
} else {
kable(x, format = "latex")
}