R/mod_plot_card.R

In pchabros/appsilon: An Amazing Shiny App

#' plot_card UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS
#' @importFrom stringr str_remove str_c
#' @importFrom jsonlite toJSON
#' @importFrom dplyr filter if_else %>%
mod_plot_card_ui <- function(id) {
  ns <- NS(id)
  uiOutput(ns("plot_card"))
}

#' plot_card Server Function
#'
#' @noRd 
mod_plot_card_server <- function(input, output, session, title, tools = TRUE, .data, plot_type) {
  
  ns <- session$ns
  id <- ns("") %>% str_remove("-$")
  
  selected <- reactiveVal()
  
  data_filtered <- reactive({
    if (is.null(selected())) selected(.data$date_[1])
    .data %>% filter(date_ == selected())
  })
  
  output$plot_card <- renderUI({
    div(
      class = "card plot-card", id = id,
      fluidRow(
        class = "card-panel",
        column(width = if_else(tools, 6, 12), class = "panel-title", span(title)),
        if (tools) {
          div(
            class = "card-tools float-right",
            map(
              c("remove", "expand", "minimize"),
              ~button(ns(.x), .x)
            )
          )
        } else {
          div(style = "height: 10px;")
        }
      ),
      fluidRow(
        class = "card-body",
        HTML(str_c('<svg id="', id, '-plot"></svg>'))
      ),
      mod_plot_buttons_ui(ns("plot_buttons"))
    )
  })
  
  session$onFlushed(
    function() {
      session$sendCustomMessage(plot_type, list(
        id = str_c(id, "-plot"), data = toJSON(isolate(data_filtered()))
      ))
    },
    once = TRUE
  )
  
  observe({
    session$sendCustomMessage(plot_type, list(
      id = str_c(id, "-plot"), data = toJSON(data_filtered())
    ))
  })
  
  observeEvent(input$remove, {
    session$sendCustomMessage("remove", id)
  })  
  
  observeEvent(input$expand, {
    session$sendCustomMessage("expand_toogle", id)
  })  
  
  observeEvent(input$minimize, {
    session$sendCustomMessage("minimize_toogle", id)
  })
  
  callModule(
    mod_plot_buttons_server, "plot_buttons",
    choices = unique(.data$date_), selected = selected
  )
  
}