使用Shiny R的UI组件中的输入

Question

我想知道是否有办法在UI组件中使用输入。

这是我的示例代码：

shinyApp(
  ui <- fluidPage(
    column(12,fluidRow(column(4, inputPanel(
            selectInput("dx", label = "Diagnosis:",
              choices = DX, selected = "LOW BACK PAIN")
                  ))

    )),
    lapply(unique(allProc[dx.x==input$dx])$pat), function(patient) {
      fluidRow(column(1, tags$p(patient)), 
               column(11, lapply(unique(allProc[pat == patient & dx.x == input$dx])$Clinic), 
                  function(clinic){
                    fluidRow(column(1, tags$p(clinic)),
                             column(10, plotOutput(outputId = paste(patient, clinic), height = "100%")))
                  })))

    })
  ),

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

显然这是错误的..我不能只做allProc [dx.x ==输入$ dx]），但这个想法是一样的。如何在元素用户在同一组件中选择的UI组件中进行过滤？

TIA！