Отключить «несколько = ИСТИНА» в selectInput, если пользователь сделал определенный выбор - PullRequest
0 голосов
/ 09 марта 2020

Я создаю блестящую панель инструментов, где в какой-то момент я прошу пользователя выбрать числовые столбцы из загруженного набора данных, чтобы выполнить какое-то преобразование этих столбцов. У меня есть 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 больше не должен применяться. Искал здесь, но ничего не смог найти.

Как мне это сделать? Спасибо

...