Требовать, чтобы вход был выбран для pickerInput - PullRequest
Новая
       12

Требовать, чтобы вход был выбран для pickerInput

0 голосов
/ 23 октября 2018

Как я могу требовать, чтобы пользователь выбирал вход из pickerInput?

Вот базовый пример: 

library("shiny")
library("shinyWidgets")

ui <- fluidPage(
  column(
    width = 4,
      pickerInput(inputId = "fruit", 
                  label = "Fruits", 
                  choices = c("Apple", "Mango", "Pear", "Orange"),
                  options = list(`actions-box` = T, 
                                 `none-selected-text` = "Please make a selection!"),
                  multiple = T)
        ))
server <- function(input, output) {
   output$res <- renderPrint({
   input$fruit
   })
}

shinyApp(ui = ui, server = server)

Можно ли добавить опцию при созданиименю pickerInput, которое устанавливает его так, чтобы меню всегда требовало ввода?

1 Ответ

0 голосов
/ 23 октября 2018

Вы можете просто обновить его, мы также можем добавить всплывающее окно, указывающее, что по крайней мере 1 элемент должен быть выбран 

library("shiny")
library("shinyWidgets")

mychoices <- c("Apple", "Mango", "Pear", "Orange")

ui <- fluidPage(
  column(
    width = 4,
    pickerInput(inputId = "fruit", 
                label = "Fruits", 
                choices = mychoices,
                options = list(`actions-box` = T, `none-selected-text` = "Please make a selection!",selected = mychoices[1]),
                multiple = T)
  ),
  column(4,textOutput("res"))

)
server <- function(input, output,session) {

  data <- eventReactive(input$fruit,{
    if(is.null(input$fruit)){
      updatePickerInput(session,"fruit",choices = mychoices,selected = mychoices[1])
      showNotification("At least 1 should be selected", duration = 2,type = c("error"))
    }
    input$fruit
  },ignoreNULL = F)

  output$res <- renderPrint({
    req(data())
    data()
  })
}

shinyApp(ui = ui, server = server)
...