用户查询后，呈现出闪亮的用户界面

Question

我正在使用一个闪亮的应用程序，该应用程序从用户那里获取query，从另一个脚本运行一些code并呈现UI。这就是我想要做的：

library(shiny)

shinyApp(
  ui = fluidPage(
    fluidRow(h1(paste("Your query is:",keyword))),
    fluidRow(h1(paste("The results were:",keyword/10)))
  ),
  server = function(input, output, session) {
    observe({
      query <- parseQueryString(session$clientData$url_search)
      if (!is.null(query[['keyword']])) {
        source("code.R")
      }
    })
  }
)

我一直在搜索并使用renderUI函数，但是它对我不起作用。

这是我尝试过的：

library(shiny)

shinyApp(
  ui = fluidPage(
    uiOutput("UI")
  ),
  server = function(input, output, session) {

output$UI <- renderUI({
        observe({
          query <- parseQueryString(session$clientData$url_search)
          if (!is.null(query[['keyword']])) {
            source("code.R")
fluidRow(h1(paste("Your query is:",keyword))),
    fluidRow(h1(paste("The results were:",keyword/10)))
          }
        })
      }
    )})

有什么解决方法的想法吗？

只是要让自己清楚一点：我需要等待用户查询某些内容，然后保存查询字符串，使用其他代码对它进行分析，并使用分析中的值显示UI。