0

在下面给定的 R 闪亮脚本中，我正在尝试使用带有 Picker Input 闪亮小部件的条件面板。pickerInput 中有三个选项，在选择“times”选项后，我希望使用条件面板创建新的 pickerInputs，以下可以使用 selectInput，但我需要同样的 Picker Input。谢谢，请帮忙。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Picket",titleWidth = 290),
dashboardSidebar(width = 0),
dashboardBody(
tabsetPanel(type = "tab",
            tabPanel("Overview", value = 1,

                     box(
                       column(1, 
                              dropdown(
                                pickerInput(inputId = "resources", 
                                            label = "", 
                                            choices = c("cases", 
                                                        "activities", 
                                                        "times"), 
                                            choicesOpt = list(icon = c("fa fa-bars", 
                                                                       "fa fa-bars", 
                                                                       "fa fa-safari")), 
                                            options = list(`icon-base` = "")),
                                circle = FALSE, status = "primary", icon = icon("list", lib = "glyphicon"), width = "300px"
                              ),
                              conditionalPanel(
                                condition = "input.Position == 'times' ",
                                dropdown(
                                pickerInput(inputId = "Id072", 
                                            label = "Select/deselect all options", 
                                            choices = c("A","Check-out", "b","c","d","e","f")
                                            )))))),

id= "tabselected"

            )

            ))


server <- function(input, output) { 
}
shinyApp(ui, server)
4

1 回答 1

2

这condition = "input.Position == 'times' ",不应该condition = "input.resources == 'times' ",吗？

于 2018-02-28T08:38:36.820 回答