Итак, я нашел другое решение, основная идея которого заключается в следующем: обновить входное значение в обозревателе для первого ввода, скрыть второй вход от наблюдателя для второго ввода. Будет лучше, если я покажу:
ui <-
dashboardPage(
dashboardHeader(
title = 'Test'),
dashboardSidebar(),
dashboardBody(
selectInput(
inputId = 'mainInput',
label = 'Main input',
selected = 'Show',
choices = c('Show', 'Hide')
),
uiOutput(
outputId = 'secondInputUI'
),
actionButton(
inputId = 'thirdInput',
label = 'Check value'
)
)
)
server <- function(input, output, session){
observeEvent(input$mainInput, {
if (input$mainInput == 'Show')
output$secondInputUI <-
renderUI(
selectInput(
inputId = 'secondInput',
label = 'Second input',
selected = 0,
multiple = FALSE,
choices = c(1, 0)
)
)
else {
output$secondInputUI <-
renderUI(
selectInput(
inputId = 'secondInput',
label = 'Second input',
selected = '',
multiple = TRUE,
choices = c(1, 0)
)
)
}
})
# THE TRICK HERE ####
observeEvent(input$secondInput, ignoreNULL = FALSE, {
if (input$mainInput != 'Show'){
output$secondInputUI <-
renderUI(NULL)
}
})
observeEvent(input$thirdInput, {
showNotification(
session = session,
ui = paste(input$secondInput, collapse = ', '))
})
}
shinyApp(
ui = ui,
server = server)
"Серая область" они говорят о, панель Commands от Свойств панели Properties (не опечатка). Это не очень полезно, таким образом, Вы, вероятно, отключили его, я сделал.
Можно или повторно включить его путем щелчка правой кнопкой по панели Properties и выбора "Команд", или добавить проект Установщика непосредственно путем щелчка правой кнопкой по Сервисному режиму конструктора (большое коричневое окно с, "Для добавления компонентов к классу...") и выбора, "Добавьте Установщик".