Question

我有这个应用程序：

library(shiny)

ui <- fluidPage(
  textInput("query_text","Type something:"),
  actionButton(inputId='query_button',
               label="Search", 
               icon = icon("th"), 
               onclick = paste("location.href='http://www.example.com?lookfor=",
                               input$query_text, "'", sep=""))
)

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

}

shinyApp(ui, server)

我想使用操作按钮更新网址，因此，当用户键入某些内容（例如：paper）时，它会像这样更新网址：

http://www.example.com/?lookfor=paper

任何想法都该怎么做？也许将其包装在一个observeEvent上？

Answer 1

根据您对我的评论的答复，您正在寻找的是updateQueryString函数。

library(shiny)

ui <- fluidPage(
  textInput("query_text", "Type something:"),
  actionButton(inputId = 'query_button', label = "Search")
)

server <- function(input, output, session) {
  observeEvent(input$query_button, {
    updateQueryString(paste0("?lookfor=", input$query_text))
  })
}

shinyApp(ui, server)

闪亮应用中的“操作”按钮使用用户输入来更新网址中的查询

1 个答案: