checkbox не выбран в блестящем приложении

Question

Мне нужно подготовить блестящее приложение для школьного проекта. Это звено, что он должен выглядеть как

https://yuvaln.shinyapps.io/olympics/

Если вы посмотрите на приложение, которое вы видите есть флажок с именем medals.When вы открыть приложение все они выбраны, но в событие, которое пользователь решает снять с них все, должна быть небольшая ошибка, и график не должен быть нарисован.

У меня возникли проблемы с получением на это, когда я снимите все флажки в моем приложении рисует пустой рисунок

Это важная часть коды:

fluidRow(
    column(3,checkboxGroupInput("Medals", label = strong("Medals"), 
    choices = list("Total" = "TOTAL", "Gold" = 'GOLD', 
    "Silver" = 'SILVER','Bronze'='BRONZE'), 
    selected = c('TOTAL','GOLD','SILVER','BRONZE')))), 

    fluidRow(
    mainPanel(plotOutput('coolplot'),width = '40%')) 
)  
) 
    server <- function(input, output){output$coolplot<-renderPlot(plot.medals2(input$country, 
    input$Startingyear,input$Endingyear,input$Medals))} 
    shinyApp(ui = ui, server = server) 

Я использую функция plot.medals2, которая получает вектор медалей, год начала, год окончания, страну и возвращает рисунок графика.

Answer 1

Поскольку вы не опубликовали полный код, я воссоздал пример с использованием набора данных Iris. Я думаю, код ниже отвечает на ваш вопрос ...

library(shiny) 
library(ggplot2) 
library(dplyr) 

ui <- shinyUI(fluidPage(

    # Application title 
    titlePanel("Checkbox example"), 
    fluidRow(
      column(3,checkboxGroupInput("example", label = strong("Species"), 
             choices = levels(iris$Species), 
             selected = levels(iris$Species)))), 
    fluidRow(
      mainPanel(plotOutput('coolplot'),width = '40%')) 


)) 



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

    irisSubset <- reactive({ 
      validate(
        need(input$example != "", 'Please choose at least one feature.') 
      ) 
      filter(iris, Species %in% input$example) 
    }) 

    output$coolplot<-renderPlot({ 
      gg <- ggplot(irisSubset(), aes(x = Species, y = Sepal.Length)) 
      gg <- gg + geom_boxplot() 
      print(gg) 
    }) 

}) 

# Run the application 
shinyApp(ui = ui, server = server)