Question

所以我有一个我构建的仪表板，代码如下：

服务器

shinyServer(function(input, output) {

output$table <- DT::renderDataTable(DT::datatable({
data <- cancel_reason_month
if (input$rep != "All") {
  data <- data[data$'Cohort Month' == input$rep,]
}
data
}))

})

UI

shinyUI(
fluidPage(
titlePanel("Breakdown"),

fluidRow(
  column(4,
         selectInput("rep",
                     "Cancel Month:",
                     c("All",
                       unique(as.character(cancel_reason_month$`Cohort Month`))))
  )
),
fluidRow(
  DT::dataTableOutput("table")
)
)
)

The end results is a dashboard that looks like this.

所以你可以看到我目前有一个下拉菜单，您可以在其中选择月份，但这不是我想要做的。

假设我只想看2016年7月和8月的数据，我怎么能这样做？是否有某种checkboxn小部件，我可以选择我想要的选项？

此外，我如何在底部添加小计，这些小计将随我选择的数据而变化（例如，如果我选择7月和8月，则列的结果小计仅反映7月和8月。）

复选框结果选项

0 个答案: