r - 表示 R 闪亮仪表板中 infoBox 中的 selectInput 值

Question

给定的 R 闪亮脚本在下面有一个 selectInput 和信息框，我只想在 ui 的信息框中的 selectInput 中显示所选值。请帮助我解决方案，如果可能，请避免在服务器中编写任何脚本，因为我有进一步的依赖关系。如果这可以在 UI 中完成，那就太好了，谢谢。

## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
box(title = "Data", status = "primary", solidHeader = T, width = 12,
      fluidPage(
        fluidRow(

          column(2,offset = 0, style='padding:1px;',
                 selectInput("select the 
input","select1",unique(iris$Species)))
        ))),
  infoBox("Median Throughput Time", iris$Species)))
server <- function(input, output) { }
shinyApp(ui, server)

Answer 1

诀窍是确保您知道selectInput分配的值的位置，selected_data在我的示例中，可以使用input$selected_data.

renderUI让您构建一个动态元素，可以使用uiOutput和输出 id 进行渲染，在这种情况下，info_box

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(title = "Data", status = "primary", solidHeader = T, width = 12,
        fluidPage(
          fluidRow(
            column(2, offset = 0, style = 'padding:1px;', 
                   selectInput(inputId = "selected_data",
                               label = "Select input",
                               choices = unique(iris$Species)))
            )
          )
        ),
    uiOutput("info_box")
    )
  )
# Define server logic required to draw a histogram
server <- function(input, output) {
   output$info_box <- renderUI({
     infoBox("Median Throughput Time", input$selected_data)
   })
}

# Run the application 
shinyApp(ui = ui, server = server)