data-raw/app/global.R

In nverno/moosedata: Moosilauke data

### global.R --- 
## Filename: global.R
## Description: 
## Author: Noah Peart
## Created: Sat Jan 23 14:47:08 2016 (-0500)
## Last-Updated: Thu Jan 28 01:14:21 2016 (-0500)
##           By: Noah Peart
######################################################################
source("utils.R")

## General
library(data.table)
library(formattable)

## Shiny
library(shiny)
library(shinydashboard)
library(shinyBS)
library(sjs)  # 'nverno/sjs'

## Plotting
library(plotly)
library(ggplot2)
library(ggthemes)

## locations to find sources
sources <- list(controls='controllers', uis='partials')
################################################################################
##
##                                Data setup
##
################################################################################
## nverno/sync.afs
use_afs <- TRUE
if (use_afs) {
    if (!exists('dkey')) dkey <- copy(sync.afs::data_key)
    afs_update_cache()
    has_afs_utils <- afs_utils()
}

## Plot-level variables
## From pp_demslope (all)
vars1 <- c('PPLOT'='integer', 'LAT'='double', 'LONG'='double', 'SLOPEDEM'='double')

## From pp_raw
## Unsure: MICR
vars2 <- c(
    'PPLOT'='integer', 'SPLOT'='integer', 'SPLOT98'='integer',
    'ELEV'='integer', 'ELEVCL'='factor',
    'ASP'='integer', 'ASPCL'='factor',
    'SLOPCL'='factor', 'SLOPE8687'='double',
    'SOILCL'='factor'  # other soil
)

################################################################################
##
##                                Global vars
##
################################################################################
with_defaults <- function(x, defaults) {
    args <- intersect(names(defaults), names(formals(x)))
    formals(x)[args] <- defaults[args]
    x
}

pars <- list(
    ## single variables
    single=list(
        style = 'plotly'
    ),

    ## Defaults for UI stuff
    outputs = list(
        background='blue', 
        status='primary',
        solidHeader=TRUE, 
        collapsible=TRUE
    ),
    inputs = list(
        title='Input',
        background='black'
        ## solidHeader=TRUE
    ),
    ggdefaults <- list(theme_bw())
)

## Render/output functions for single variable
## pars$single$render <- switch(pars$single$style, 'ggplot2'=renderPlot, 
##                              'plotly'=renderPlotly, renderPlot)
pars$single$plot_output <- switch(pars$single$style, 'ggplot2'=plotOutput, 
                                  'plotly'=plotlyOutput, plotOutput)

## Display when graph won't work
graph_fail <- ggplot(data.frame(
  x=1, y=1, 
  label="This type of graph won't work with \nthis variable type.")) +
  geom_text(aes(x=x, y=y, label=label), cex=20) + 
  theme_void() + xlab('') + ylab('')