Визуализация пользовательского интерфейса в блестящем после запроса от пользователя

Question

Я работаю с блестящим приложением, которое получает query от пользователя, запускает code из другого скрипта и отображает пользовательский интерфейс. Вот что я пытаюсь сделать:

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)))
          }
        })
      }
    )})

есть идеи как это решить?

Просто чтобы прояснить ситуацию: мне нужно подождать, пока пользователь запросит что-то, затем сохранить строку запроса, выполнить анализ с другим кодом и показать пользовательский интерфейс со значениями из анализа.