R/mod_trend.R

In JohnCoene/coronavirus: Tracking the Coronavirus

# Module UI
  
#' @title   mod_trend_ui and mod_trend_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_trend
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
mod_trend_ui <- function(id){
  ns <- NS(id)
  tagList(
    f7Card(
      title = "Trend",
      f7Toggle(ns("log"), "Logarithmic Scale"),
      echarts4r::echarts4rOutput(ns("trend"), height = 400),
      footer = uiOutput(ns("copy_ui"))
    )
  )
}

#' @rdname mod_trend
#' @export
#' @keywords internal
    
mod_trend_server <- function(input, output, session, df = df, type_filter = "confirmed"){
  ns <- session$ns

  embed_url <- golem::get_golem_options("embed_url")

  output$copy_ui <- renderUI({
    copy(embed_url, "jhu", paste0("&chart=trend&log=", tolower(input$log)))
  })

  output$trend <- echarts4r::renderEcharts4r({
    mode_trend_echarts(df, type_filter, input$log)
  })
}

mode_trend_echarts <- function(df = df, type_filter = "confirmed", log = FALSE){

  type <- ifelse(log, "log", "value")

  ls <- list(
    shadowColor = "rgba(0, 0, 0, 0.8)",
    shadowBlur = 5,
    shadowOffsetY = 3
  )

  df %>% 
    dplyr::group_by(date) %>% 
    dplyr::summarise(cases = sum(cases)) %>%
    dplyr::ungroup() %>%  
    dplyr::arrange(date) %>% 
    echarts4r::e_charts(date, dispose = FALSE) %>% 
    echarts4r::e_line(cases, name = "Confirmed Cases", lineStyle = ls) %>% 
    echarts4r::e_tooltip(trigger = "axis") %>% 
    echarts4r::e_hide_grid_lines("x") %>% 
    echarts4r::e_theme(theme) %>%
    echarts4r::e_group("JHU") %>% 
    echarts4r::e_y_axis(type = type)
}