为何将shiny.router::router_server放入辅助函数会崩溃？

当你把router_server()移到辅助函数中调用时，shiny.router无法正确获取Shiny server函数的反应式环境（包含input、output、session等核心对象），导致内部的反应式逻辑（比如observe观察者）无法正常初始化，从而抛出错误。

你尝试传递parent.frame()的方式不对：在helper()内部调用parent.frame()得到的是helper自身的父环境，而非server函数的环境；直接传递env = parent.frame()给router_server时，这个环境在helper的调用栈里已经不是Shiny需要的server上下文了。

要让router_server()在正确的环境中运行，需要强制它在server函数的环境上下文里执行，以下是两种可行的实现方式：

方式一：传递server环境并强制求值 #

修改辅助函数，让它接收server的环境参数，然后用eval在该环境中执行router_server()：

library(shiny)
library(shiny.router)

root_page <- div(h2("Root page"))
other_page <- div(h3("Other page"))

ui <- fluidPage(
  title = "Router demo",
  router_ui(
    route("/", root_page),
    route("other", other_page)
  )
)

helper <- function(target_env) {
  eval(quote(router_server()), envir = target_env)
}

server <- function(input, output, session) {
  helper(target_env = environment())
}

shinyApp(ui, server)

方式二：通过session绑定正确环境 #

让辅助函数接收session参数，利用session的环境确保router_server运行在正确的上下文：

library(shiny)
library(shiny.router)

root_page <- div(h2("Root page"))
other_page <- div(h3("Other page"))

ui <- fluidPage(
  title = "Router demo",
  router_ui(
    route("/", root_page),
    route("other", other_page)
  )
)

helper <- function(session) {
  router_server(env = environment(session))
}

server <- function(input, output, session) {
  helper(session)
}

shinyApp(ui, server)

shiny.router的router_server()内部会创建Shiny的观察者（observe）和反应式依赖，这些逻辑必须运行在Shiny server函数的环境中，才能访问input、session等核心对象。通过上述方式，我们确保了router_server()的执行环境与直接在server函数中调用时完全一致，从而避免了环境不匹配导致的错误。

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