In ThinkR-open/clientapp: A Shiny template for client database exploration

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(dplyr)
library(ggplot2)
library(sf)
library(leaflet)
library(tmap)
library(clientapp)

Read internal data

# devtools::load_all()
data("database", package = "clientapp")
data("fra_sf", package = "clientapp")

Join tables

Join client and tickets tables

ticket_complete <- database$tickets %>% 
  left_join(database$clients, by = "num_client")

Explore data

ticket_complete %>% 
  mutate(state_reduce = case_when(
    grepl("Attente", state) ~ "Awaiting",
    state == "Terminé" ~ "Done",
    TRUE ~ "Proceeding"  
    )) %>% 
  count(state_reduce)