inst/apps/testApp02/global.R

In shafayetShafee/testApps: Run simple shiny apps

library(dplyr)           # CRAN v1.0.8
library(shiny)           # CRAN v1.7.1
library(waiter)          # CRAN v0.2.5
library(bs4Dash)         # CRAN v2.0.3
library(echarts4r)       # CRAN v0.4.3
library(nycflights13)    # CRAN v1.0.2
library(shinycssloaders) # CRAN v1.0.0

echart_theme <- c(
  "auritus", "azul", "bee-inspired", "blue", "caravan", "carp", "chalk",
  "cool", "dark-blue", "dark-bold", "dark-digerati", "dark-fresh-cut",
  "dark-mushroom",
  "dark", "eduardo", "essos", "forest", "fresh-cut", "fruit", "gray", "green",
  "halloween", "helianthus", "infographic", "inspired", "jazz", "london", "macarons",
  "macarons2", "mint", "purple-passion", "red-velvet", "red", "roma", "royal",
  "sakura", "shine", "tech-blue", "vintage", "walden", "wef", "weforum", "westeros",
  "wonderland"
)

ua_data <- nycflights13::flights %>%
  dplyr::filter(carrier == "UA") %>%
  mutate(
    ind_arr_delay = (arr_delay > 5)
  ) %>%
  group_by(year, month, day) %>%
  summarise(
    n = n(),
    round(across(ends_with("delay"), mean, na.rm = TRUE), 2)
  ) %>%
  ungroup()

axis_names <- setNames(
  c("Departure Delay", "Arrival Delay", "Proportion Delay"),
  c("dep_delay", "arr_delay", "ind_arr_delay")
)


viz_monthly <- function(df, y_var, threshold = NULL, theme) {
  df %>%
    e_charts_("day", dispose = TRUE) %>%
    e_line_(y_var, name = "Delay") %>%
    e_mark_line(data = list(yAxis = threshold)) %>%
    e_x_axis(
      nameLocation = "center",
      nameTextStyle = list(
        padding = c(10, 4, 10, 4),
        fontSize = 16
      )
    ) %>%
    e_y_axis(
      nameLocation = "center",
      nameTextStyle = list(
        padding = c(10, 4, 20, 4),
        fontSize = 16
      )
    ) %>%
    e_tooltip(
      formatter = htmlwidgets::JS("
      function(params){
        return('Day: ' + params.value[0] + '<br />Delay (min): ' + params.value[1])
      }")
    ) %>%
    e_theme(theme) %>%
    e_legend(bottom = 0) %>%
    e_axis_labels(x = "Day", y = axis_names[[y_var]]) %>%
    e_toolbox_feature(feature = "saveAsImage") %>%
    e_show_loading()
}


source("mod-plot.R")
source("mod-text.R")
source("mod-metric.R")