Quarto中函数内reactable非末尾输出不显示问题求助

问题根源 #

R函数默认仅返回最后一行代码的执行结果，reactable作为HTML组件，若不是函数最后输出且未显式触发渲染，Quarto就不会捕获并展示它；而普通dataframe的print()属于控制台输出，能被直接捕获，但reactable需要主动处理才能渲染。

两种有效解决方式 #

方式一：显式打印Reactable组件 #

在函数中对reactable调用print()，强制触发渲染输出：

fn_cars <- function(my_data) {
  print(my_data[1:5,] %>% reactable())  
  print(my_data[1:5,])
}

调用fn_cars(mtcars)后，reactable和dataframe会依次正常显示。

方式二：用htmltools::tagList()组合输出 #

如果想要更统一的HTML格式输出，可借助htmltools包将reactable和dataframe的HTML表格组合后返回：

library(htmltools)

fn_cars <- function(my_data) {
  # 生成reactable组件
  rt_table <- my_data[1:5,] %>% reactable()
  # 将dataframe转为适配HTML的表格
  df_html <- my_data[1:5,] %>% knitr::kable(format = "html") %>% HTML()
  
  # 组合两个输出并返回
  tagList(rt_table, df_html)
}

这种方式输出的两个表格均为HTML格式，排版更协调，适配Quarto的HTML文档场景。

内容的提问来源于stack exchange，提问作者zoowalk