基于服务器文件夹结构自动生成Shiny/Flexdashboard按钮与页面

核心思路 #

借助Shiny的renderUI实现动态UI生成，结合文件扫描函数适配文件夹结构变动，通过file.show()完成点击按钮打开对应RMD文件的逻辑。

具体实现步骤 #

1. 动态扫描文件夹与RMD文件 #

先写一个函数扫描目标目录，返回文件夹与对应RMD文件的结构化数据：

scan_rmd_folders <- function(root_dir) {
  # 获取所有一级子文件夹
  folders <- list.dirs(root_dir, recursive = FALSE, full.names = FALSE)
  # 为每个文件夹匹配内部RMD文件
  folder_rmds <- lapply(folders, function(folder) {
    rmd_paths <- list.files(file.path(root_dir, folder), pattern = "\\.Rmd$", full.names = TRUE)
    setNames(rmd_paths, basename(rmd_paths))
  })
  names(folder_rmds) <- folders
  folder_rmds
}

2. 在Flexdashboard中生成动态页面与按钮 #

利用Flexdashboard的Shiny运行时，动态生成每个文件夹的页面及对应RMD按钮：

---
title: "动态RMD导航面板"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)

# 替换为你的服务器文件夹根路径
root_dir <- "/path/to/your/server/folders"

# 实时扫描文件夹与RMD文件
folder_rmds <- scan_rmd_folders(root_dir)

# 循环生成每个文件夹的页面内容
for (folder_name in names(folder_rmds)) {
  # 生成页面标题
  cat(paste0("## ", folder_name, "\n\n"))
  
  # 动态渲染该文件夹下的所有RMD按钮
  renderUI({
    rmd_list <- folder_rmds[[folder_name]]
    lapply(names(rmd_list), function(rmd_filename) {
      actionButton(
        inputId = paste0("btn_", gsub("[^a-zA-Z0-9]", "_", rmd_filename)),
        label = rmd_filename,
        onclick = sprintf("Shiny.setInputValue('trigger_open', '%s');", rmd_list[[rmd_filename]])
      )
    })
  })
  
  cat("\n\n")
}

# 监听按钮点击事件，打开对应RMD文件
observeEvent(input$trigger_open, {
  req(input$trigger_open)
  # 服务器端打开文件（需确保应用有对应文件权限）
  file.show(input$trigger_open)
})

关键细节说明 #

• scan_rmd_folders函数会在应用启动时重新扫描目录，自动适配文件夹及文件的变动
• 按钮ID通过替换特殊字符规避Shiny输入ID的格式限制
• 用onclick直接传递文件路径到Shiny输入，避免循环闭包导致的变量绑定错误
• 若需在浏览器预览RMD内容，可将file.show()替换为rmarkdown::render()生成HTML后调用browseURL()打开

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