如何从URL中获取Shiny的state_id并在output中展示？

要获取URL中的_state_id_并在output$stateid中展示，你可以通过以下两种方式实现：

方法1：解析URL查询参数 #

通过parseQueryString解析当前页面的URL查询字符串，直接提取_state_id_参数值：

修改后的完整代码：

ui <- function(request) {
  fluidPage(
    plotOutput("plot"),
    sliderInput("n", "Number of observations", 1, nrow(faithful), 100),
    verbatimTextOutput('stateid')
  )
}

server <- function(input, output, session) {
  output$plot <- renderPlot({
    hist(faithful$eruptions[seq_len(input$n)], breaks = 40)
  })
  
  observeEvent(
    reactiveValuesToList(input), 
    session$doBookmark()
  )
  
  onBookmarked(updateQueryString)
  
  # 定义获取state_id的反应式表达式
  get_state_id <- reactive({
    # 解析URL中的查询字符串
    query_params <- parseQueryString(session$clientData$url_search)
    # 返回_state_id_对应的值，若不存在则返回提示
    query_params[["_state_id_"]] %||% "未生成state_id"
  })
  
  # 渲染state_id到输出控件
  output$stateid <- renderPrint({
    get_state_id()
  })
}

app <- shinyApp(ui, server, enableBookmarking = "server")
runApp(app, host = "0.0.0.0", port = 11111)

关键说明： #

• session$clientData$url_search：获取当前URL中?之后的查询字符串部分（比如?_state_id_=c5c5396f9e4cbad1）
• parseQueryString()：将查询字符串解析为键值对列表，直接通过query_params[["_state_id_"]]提取目标值
• %||%是Shiny内置的空值处理运算符，当_state_id_不存在时返回默认提示文本

方法2：直接获取会话token（server端书签专属） #

在server端书签模式下，Shiny会话的token属性就是URL中的_state_id_值，你可以直接调用：

get_state_id <- reactive({
  session$token %||% "未生成state_id"
})

这种方式更简洁，但仅适用于enableBookmarking = "server"的场景。

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