如何自动将R Shiny工具UI加载至dashboardBody？

1. 先规范工具脚本的结构 #

每个工具脚本必须定义一个返回tabItem对象的UI函数，这是核心前提——因为tabItems的子元素只能是tabItem类型的shiny.tag对象。

示例工具脚本（如tools/tool_data_analysis.R）：

tool_data_analysis_ui <- function() {
  tabItem(
    tabName = "data_analysis",  # 唯一标识，需和sidebarMenu的menuItem对应
    h3("数据分析工具"),
    fluidRow(
      column(6, selectInput("data_source", "数据源", choices = c("本地文件", "数据库"))),
      column(6, actionButton("run_analysis", "执行分析"))
    )
  )
}

2. 自动加载工具脚本并收集UI函数 #

通过遍历工具目录，加载所有脚本并提取符合命名规范的UI函数（这里约定UI函数以_ui结尾）：

# 工具脚本所在目录
tools_dir <- "./tools"

# 获取所有.R格式的工具脚本
tool_scripts <- list.files(tools_dir, pattern = "\\.R$", full.names = TRUE)

# 加载脚本并收集UI函数（避免污染全局环境，使用local环境）
tool_ui_list <- list()
for (script_path in tool_scripts) {
  # 创建临时环境加载脚本
  temp_env <- new.env()
  source(script_path, local = temp_env)
  
  # 提取当前脚本中的UI函数（匹配xxx_ui命名）
  ui_func_names <- grep("_ui$", ls(temp_env), value = TRUE)
  if (length(ui_func_names) > 0) {
    tool_ui_list[[ui_func_names[1]]] <- get(ui_func_names[1], temp_env)
  }
}

3. 生成Tab项并传入dashboardBody #

调用所有UI函数得到tabItem列表，再通过do.call或rlang::inject传入tabItems：

# 生成所有tabItem对象
tab_items <- lapply(tool_ui_list, function(ui_func) ui_func())

# 方式1：用do.call传入tabItems
dashboardBody(
  do.call(tabItems, tab_items)
)

# 方式2：用rlang::inject（和do.call效果一致，语法更简洁）
dashboardBody(
  rlang::inject(tabItems(!!!tab_items))
)

常见问题排查 #

如果仍报Expected an object with class 'shiny.tag'错误，检查以下几点：

• 每个工具脚本的UI函数是否确实返回tabItem，而非其他容器（如fluidPage）
• 用purrr::map_lgl(tab_items, inherits, "shiny.tag")检查生成的tab项是否全部为shiny.tag类型
• 确认脚本加载路径正确，list.files能获取到所有工具脚本

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