如何编写同时支持单输入与多输入遍历的RMD表格生成函数？

我能通过以下RMD文件成功生成单个表格的HTML输出：

---
title: "rmd loop"
author: "abc"
date: "`r Sys.Date()`"
output: html_document
---

{r echo=FALSE}

library(kableExtra)
library(htmltools)

test_table_one_case <- function(x){
     dt <-
    x |> 
    kable() |> 
    kable_classic(full_width = F, html_font = "Cambria") 
    
    return(htmltools::tagList(htmltools::HTML(dt)))
}

test_table_one_case("Hello") 

但尝试两种遍历多输入的方法都失败了：

{r echo=FALSE}

words <- c("Hello", "World")

test_table_many_cases_1 <- function(x){
    
    dt <- x |> 
    kable() |> 
    kable_classic(full_width = F, html_font = "Cambria") 
   
    return(htmltools::tagList(htmltools::HTML(dt)))
}

for (x in words)
  test_table_many_cases_1(x)


test_table_many_cases_2 <- function(x){
    
    x |> 
    kable() |> 
    kable_classic(full_width = F, html_font = "Cambria") 
  }

for (x in words)
  print(test_table_many_cases_2(x))

请问如何编写一个能同时适配单输入和多输入遍历场景的函数？

在R Markdown中，循环里生成的HTML元素需要被收集并统一输出，单独在循环里调用函数或print不会自动渲染到最终文档里。以下是适配单/多输入的实现方案：

核心逻辑 #

1. 让函数同时兼容单个值和向量输入
2. 判断输入类型：单个值直接生成表格；向量则遍历每个元素生成表格，最后用htmltools::tagList将所有表格元素组合，确保R Markdown能正确解析渲染

完整可运行代码 #

{r echo=FALSE}
library(kableExtra)
library(htmltools)

test_table <- function(x) {
  # 封装单个元素的表格生成逻辑
  make_single_table <- function(val) {
    val |>
      kable() |>
      kable_classic(full_width = FALSE, html_font = "Cambria") |>
      htmltools::HTML()
  }
  
  # 根据输入长度处理单/多场景
  if (length(x) == 1) {
    htmltools::tagList(make_single_table(x))
  } else {
    # 遍历所有输入生成表格列表，再组合输出
    table_collection <- lapply(x, make_single_table)
    htmltools::tagList(table_collection)
  }
}

# 测试单输入场景
test_table("Hello")

# 测试多输入场景
words <- c("Hello", "World")
test_table(words)

原方法失败原因 #

• 第一种循环：test_table_many_cases_1(x)生成的tagList未被统一收集，R Markdown无法捕获循环内的零散输出
• 第二种循环：print输出的是原始HTML文本，未被解析为可渲染的HTML元素，因此无法显示格式化表格

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