Я создаю интерактивное блестящее приложение и использую несколько таблиц данных. Я хочу построить гистограмму в соответствии с ответом пользователя. Сначала пользователь выбирает таблицу данных, а затем поле выбора ниже меняет свое содержимое в соответствии с таблицей данных. Но я не могу изменить содержимое, и он продолжает показывать несколько полей выбора для одной таблицы данных. Код:
ui <- fluidPage(
titlePanel("Data and their graphs"),
tabsetPanel(
tabPanel("Data",
sidebarPanel(selectInput(inputId = "data1",label="Choose a dataset",choices=c("beaver1","esoph","iris"))),
mainPanel(tableOutput(outputId = "table"))
),
tabPanel("Histogram",
sidebarPanel(selectInput(inputId = "data2",label="Choose a dataset",choices=c("beaver1","esoph","iris"))),
conditionalPanel(condition="Input.data2=='beaver1' && Input.data2!='esoph' && Input.data2!='iris'",
selectInput("His",label="Select column",choices=c("time","temp","activ"))),
condition="Input.data2=='esoph'",
selectInput("His",label="Select column",choices=c("agegp","alcgp","tobgp","ncases","ncontrols")))
)
)