r 在ui.R中创建一个分区，在dcr中显示一个dc图表

Posted 2021-05-23

library(shiny)
library(dcr)

ui = fluidPage(
  chartOutput("plot"),
  fluidRow(column(6, dc_ui("chart1", text = "cyl", 
                           show_filter = TRUE,
                           reset_text = TRUE)),
           column(6, dc_ui("chart2", text = "gear by carb",
                           show_filter = TRUE,
                           reset_text = TRUE)))
)

server = function(input, output) {
  output$plot <- renderChart({
    dcr <- dcr(mtcars)
    chart1 <- dcrchart(type = "pieChart", id = "chart1", dimension = "cyl",
                       reduce = reduceCount(), width = 400, height = 250)
    chart2 <- dcrchart(type = "lineChart", id = "chart2", dimension = "gear",
                       reduce = reduceMean("carb"), width = 400, height = 250)
    dcr + chart1 + chart2
  })
}

shinyApp(ui, server)