data-raw/app/controllers/ggplot2/single-var.R

In nverno/moosedata: Moosilauke data

### single-var.R --- 
## Filename: single-var.R
## Description: single-var controllers with ggplot2
## Author: Noah Peart
## Created: Mon Jan 25 16:07:15 2016 (-0500)
## Last-Updated: Mon Jan 25 17:19:35 2016 (-0500)
##           By: Noah Peart
######################################################################
## Prefix: 'single'
## reactives: singleDat(), singleName()
## @param render: either renderPlot or renderPlotly depending on style

################################################################################
##
##                               Distributions
##
################################################################################
## Histograms
output$singleHist <- render({
    if (singleName() == 'None') return ()
    p <- ggplot(singleDat(), aes_string(singleName())) + ggdefaults
    
    ## Use 'stat_bin' as default for numerics, 'stat_count' for non-numerics
    stat <- if (is.numeric(singleDat()[[1]])) 'bin' else 'count'
    
    if (input$singleShowBins && stat == 'bin')
        p <- p + geom_histogram(bins=input$singleBins, na.rm=TRUE)
    else 
        p <- p + geom_bar(stat=stat, na.rm=TRUE)
    p
})

## Density
output$singleDens <- render({
    p <- ggplot(singleDat(), aes_string(singleName())) + 
        geom_density(fill='pink', alpha=0.5, na.rm=TRUE) +
        ggdefaults
    p
})