global.R

# These are global settings for the TEMPEST data dashboard
# June 2023

library(ggplot2)
theme_set(theme_minimal())
library(dplyr)
library(shiny)
library(DT)
library(readr)
library(lubridate)
library(rdrop2)
library(shinybusy)
library(plotly)
library(janitor)

if(!require("compasstools")) {
    stop("Need to remotes::install_github('COMPASS-DOE/compasstools')")
}
library(compasstools)

# The TESTING_STATE flag causes the server to load static data in offline-data/
# When writing new code or debugging, it's often useful to set this to TRUE
# so as not to spend time downloading from Dropbox
TESTING <- FALSE

# Flooding event length (hours)
EVENT_LENGTH <- 10

TEXT_MSG_USERS <- tribble(
    ~name,     ~number,       ~carrier,
    "SP",      "3016063322",  "Verizon",
    "BBL",     "6086582217",  "T-Mobile",
    "AMP",     "5203491898",  "Verizon",
    "Julia",   "8644205609",  "Verizon"
)

GRAPH_TIME_WINDOW <- 24   # hours back from the dashboard datetime
GRAPH_TIME_INTERVAL <- "15 minutes"  # used by round_date in graphs
FLAG_TIME_WINDOW <- 1         # hours back from the dashboard datetime

# The 'no data' graph that's shown if no rows are selected, etc.
NO_DATA_GRAPH <- ggplot() +
    annotate("text", x = 1, y = 1, label = "(No selection)", size = 12) +
    theme(axis.title = element_blank(),
          axis.text  = element_blank(),
    )