能否在R函数内创建自定义Shiny App并调用函数内部数据？

1. 修正函数内Shiny App的实现代码 #

你设想的nested_shiny语法并不存在，无需额外封装。直接在主函数内部编写Shiny的UI、Server逻辑，利用R的闭包特性，函数内定义的变量x可以直接被Server函数捕获使用。同时注意修正原代码中数据框创建的语法错误：

run_shiny_from_function <- function() {
  # 函数内定义的目标数据（修正语法错误：用c()合并向量）
  x <- data.frame(name = c("Eric", "Bee", "Tui"))
  
  # 定义Shiny UI
  ui <- shiny::fluidPage(
    shiny::tableOutput(outputId = "data_table")
  )
  
  # 定义Server逻辑，直接调用函数内的x
  server <- function(input, output) {
    output$data_table <- shiny::renderTable({
      x
    })
  }
  
  # 启动Shiny App
  shiny::runApp(shiny::shinyApp(ui = ui, server = server))
}

# 调用启动
run_shiny_from_function()

2. 子函数与外部数据的目录结构方案 #

如果你的Shiny App需要依赖额外子函数或外部数据文件，可按以下两种方式组织：

方式一：子函数内嵌主函数 #

将所有依赖的工具函数直接定义在run_shiny_from_function内部，共享函数的局部环境，Server可直接调用：

run_shiny_from_function <- function() {
  # 内嵌子函数：数据处理工具
  process_data <- function(df) {
    df$name <- toupper(df$name)
    return(df)
  }
  
  # 函数内数据
  x <- data.frame(name = c("Eric", "Bee", "Tui"))
  processed_x <- process_data(x)
  
  ui <- shiny::fluidPage(
    shiny::tableOutput("processed_table")
  )
  
  server <- function(input, output) {
    output$processed_table <- shiny::renderTable({
      processed_x
    })
  }
  
  shiny::runApp(shiny::shinyApp(ui, server))
}

方式二：模块化拆分文件 #

若代码量较大，可将UI、Server、子函数拆分为独立文件，放在同一目录下（如shiny_modules/），在主函数中通过source()加载：

目录结构：

your_project/
├── main.R          # 包含run_shiny_from_function
└── shiny_modules/
    ├── ui.R        # UI定义
    ├── server.R    # 带参数的Server生成函数
    └── utils.R     # 子函数集合

main.R代码：

run_shiny_from_function <- function() {
  # 加载模块文件（注意路径，可使用system.file确保跨环境兼容）
  source(file.path("shiny_modules", "utils.R"))
  source(file.path("shiny_modules", "ui.R"))
  source(file.path("shiny_modules", "server.R"))
  
  # 函数内数据
  x <- data.frame(name = c("Eric", "Bee", "Tui"))
  
  # 启动App，将x传递给Server
  shiny::runApp(shiny::shinyApp(ui = ui, server = server(x)))
}

server.R代码（设计为接收数据参数的函数）：

server <- function(data) {
  # 返回Server逻辑函数，闭包捕获传入的data
  function(input, output) {
    output$data_table <- shiny::renderTable({
      process_data(data)  # 调用utils.R中的子函数
    })
  }
}

3. 临时环境的特性说明 #

调用run_shiny_from_function()时，函数内部的所有变量、子函数都存在于局部环境中。关闭Shiny App后，该局部环境会被R的垃圾回收机制自动销毁，不会对全局环境造成污染，完全满足你需要的临时状态需求。

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