diVis:

# DEV global -------------------------------------------------------------------
rm(list = ls())
# this uses different relative file paths and might have some other changes compared
# to "global.R." This one is designed for sourcing while developing app; the other is
# for shiny deployment.
library(sf)
library(tidyverse)

library(zeallot)

library(shiny)
library(shinyWidgets)
library(shinyjs)
library(shinydashboard)
library(leaflet)
library(DT)
#library(ggiraph)

# rm(list=ls())
devtools::load_all()
# get datasets -----------------------------------------------------------------

# for development, map through R/data sets. Eventually I'll clean up so can devtools
# load as a package

diVis::geo.list
source(here::here("./data-raw/gs-data/gs-selectables.R"))
source(here::here("./data-raw/gs-data/gs-selectabilities-matrix.R"))


# minor helper sets ------------------------------------------------------------

# (now in appHelpers)
bbox_to_lnglat <- function(bbox, padding = 1) {

  bbox <- as.list(bbox)

  list(lng1 = bbox$xmax + padding,
       lng2 = bbox$xmin - padding,
       lat1 = bbox$ymax + padding,
       lat2 = bbox$ymin - padding)
}

# appHelpers::lower_48
states <- tigris::states(cb = T)
l48 = states[states$STATEFP %in% appHelpers::lower_48, ]
l48bbox <- st_bbox(l48) %>% bbox_to_lnglat(padding = 0)


# get helper fcns ------------------------------------------------------------------
'
# gets all R scripts in these subfolders and sources them
src.dirs <- c(
   "R/params/"
  ,"R/processing-fcns/"
  ,"R/modules/"
)

source.in.dir <- function(srcd) {
  # get all .R scripts in specified dirs/subdirectories
  env.src <- dir(path = srcd, pattern="\\.[rR]$", recursive=F,
                 all.files = TRUE)
  # source em
  map(env.src, ~source(paste0(srcd, .)))
}

map(src.dirs, source.in.dir)
'
# to get development sets ----------------------------------------------------------------

#  source("R/dev_build-test-sets.R")