R/summaryPage.R

In altairwei/wiztimebook: Tools that help you analyze daily event time records.

#' Create UI of summary page
#'
#' @param id Namespace for the page.
#' 
#' @importFrom shiny NS fluidRow plotOutput
#' @importFrom shinydashboard box
summaryPageUI <- function(id) {
  ns <- NS(id)
  fluidRow(
    box(width = 3, shiny::tableOutput(outputId = ns("summary_table"))),
    box(width = 4,
        shiny::selectInput(inputId = ns("event_class"), label = "Class", choices = NULL),
        shiny::tableOutput(outputId = ns("event_table"))
    ),
    box(width = 5, plotOutput(outputId = ns("treemap_plot")))
  )
}


#' Server logic of histogram page
#'
#' @param input,output,session Arguments passed by \code{shiny::callModule} .
#' @param df A data frame which used to plot histogram.
#' 
#' @importFrom dplyr group_by summarise first
#' @importFrom ggplot2 ggplot aes theme
#' @importFrom treemapify geom_treemap geom_treemap_subgroup_border
#' geom_treemap_text geom_treemap_subgroup_text
#' @importFrom shiny renderPlot
summaryPage <- function(input, output, session, df) {
  output$treemap_plot <- renderPlot({
    df() %>% plot_treemap()
  })

  output$summary_table <- shiny::renderTable({
    df() %>% summary_event_class()
  })

  shiny::observe({
    data_df <- df()
    shiny::updateSelectInput(
      session, "event_class", choices = unique(data_df$Class))
  })

  output$event_table <- shiny::renderTable({
    df() %>% list_class_events(input$event_class)
  })

}