如何在shiny R中更新url

library(shiny)

ui <- fluidPage(
  actionButton("updateBtn", "Update URL")
)

server <- function(input, output, session) {
  observeEvent(input$updateBtn, {
    new_url <- updateQueryString(session$clientData$url_search, "param", "value")
    updateQueryString(new_url)
  })
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  actionButton("updateBtn", "Update URL")
)

server <- function(input, output, session) {
  observeEvent(input$updateBtn, {
    new_url <- updateQueryStringWithDefaults(session$clientData$url_search, "param", "value")
    updateQueryString(new_url)
  })
}

shinyApp(ui, server)