Я создаю блестящую панель инструментов, где в какой-то момент я прошу пользователя выбрать числовые столбцы из загруженного набора данных, чтобы выполнить какое-то преобразование этих столбцов. У меня есть uI.R tabItem здесь:
tabItem(tabName = "preprocess",
fluidRow(
tabBox(id = "trans",
tabPanel("LOGIT", uiOutput("input_logit")),
tabPanel("1st difference", uiOutput("input_1diff")),
tabPanel("2nd difference", uiOutput("input_2diff")),
tabPanel("Standardize (z-score)", uiOutput("input_zscore")),
tabPanel("Natural logarithm", uiOutput("input_log"))
),
, и для каждого из этих преобразований у меня есть renderUI, который выглядит следующим образом (я показываю его только для двух из этих входных данных, потому что они одинаковы) :
output$input_logit <- renderUI({
selectInput("cols_logit", "Select variables for this transformation", choices = c("None", columns_numerical()), multiple = TRUE)
})
#
output$input_1diff <- renderUI({
selectInput("cols_1diff", "Select variables for this transformation", choices = c("None", columns_numerical()), multiple = TRUE)
})
Вы видите, у меня есть выбор "Нет" в качестве выбора. Я хочу сделать следующее: если пользователь выбирает «Нет», «множественный = ИСТИНА» в этих selectInputs больше не должен применяться. Искал здесь, но ничего не смог найти.
Как мне это сделать? Спасибо