Как скрыть / показать столбец, когда я сниму флажок checkboxGroupInput

Question

Я только что изучил Shiny, и у меня есть данные, идущие в tableOutput.

У меня есть 3 варианта флажков: «CarA», «CarB», «CarC».Моя таблица показывает количество продаж автомобилей за год по округам.

Мои желаемые действия и результаты:

• Действие : снимите флажок CarA. Результат : в таблице отображаются только столбцы Округ, Год, CarB, CarC.
• Действие : снимите флажок CarB. Результат : в таблице отображаются только столбцы Округ, Год, CarA, CarC.
• Действие : снимите флажок CarC. Результат : в таблице отображаются только столбцы Округ, Год, CarA, CarB.
• Действие : снимите флажок CarA, CarB, Car C. Результат :В таблице отображаются только столбцы. Округ, год.

Мои данные находятся в файле .csv с именем data.csv.

county <- read.csv("data.csv", stringsAsFactors = FALSE)

County,Year,CarA,CarB,CarC
Allen,2014,8,36,49
Allen,2015,15,45,45
Allen,2016,22,54,24
Allen,2017,9,32,61
Allen,2018,16,88,98
Alon,2014,12,66,11
Alon,2015,45,84,19
Alon,2016,35,23,65
Alon,2017,32,124,35
Alon,2018,65,25,95
Brome,2014,51,36,84
Brome,2015,12,48,12
Brome,2016,48,95,36
Brome,2017,65,64,18
Brome,2018,65,21,65
Catgus,2014,34,95,17
Catgus,2015,62,36,36
Catgus,2016,86,59,26
Catgus,2017,88,85,35
Catgus,2018,15,32,32
Cay,2014,26,84,64
Cay,2015,45,12,85
Cay,2016,84,36,38
Cay,2017,69,18,9
Cay,2018,24,35,168

Код:

#carsales
library(shiny)

ui <- fluidPage(

  titlePanel('Car Sales:'),
  sidebarLayout(
    sidebarPanel(
      selectInput("county", label = h4("Select a County:"),
                  choices = county$County),
      checkboxGroupInput("Category", label = h4("Category"), 
                         choices = list("CarA", "CarB", "CarC"),
                         selected = list('CarA', 'CarB', 'CarC'))
    ),
    mainPanel(
      tableOutput("cardate")
    )
  )
)

server <- function(input, output) {

  output$cardate <- renderTable({
    countyfilter <- subset(county, county$County == input$county)
  })
}

shinyApp(ui = ui, server = server)

Answer 1

Вы были почти там.Не уверен, что помешало тебе закончить это.Спросите, нужны ли вам разъяснения

output$cardate <- renderTable({
countyfilter <- subset(county, county$County == input$county)
countyfilter[,c('County','Year', input$Category)]
 })