inst/ggraptR/server.R

In cargomoose/ggraptR1: Allows Interactive Visualization of Data Through a Web Browser GUI

## import libraries
library(shiny)
library(ggplot2)
library(dplyr)
library(DT)
library(stringr)
library(shinyBS)
library(shinyjs)
library(ggthemes)
library(jsonlite)
library(svglite)
library(futile.logger)
library(GGally)

## import global variables
source('./global_variables.R')

## set debug logs
source('./debug/debug.R')

## import functions
source('./functions/helper.R')
source('./functions/plot.R')
source('./functions/aggregate.R')
source('./functions/ggraptplot.R')

## file size options
# by default, the file size limit is 5MB. It can be changed by
# setting this option. Here we'll raise limit to 10GB.
options(shiny.maxRequestSize = 10000 * 1024^2)

shinyServer(function(input, output, session) {
  ## reactive variables
  source('./reactives/reactives.R', local=TRUE)  # general/miscellaneous
  source('./reactives/dataset.R', local=TRUE)  # dataset variables
  source('./reactives/plotWidgetVals.R', local=TRUE)  # plot widget values
  source('./reactives/plotWidgetNames.R', local=TRUE)  # plot widget names
  source('./reactives/plotWidgetOpts.R', local=TRUE)  # plot widget options
  source('./reactives/plotWidgetsDisplayCond.R', local=TRUE)  # plot widgets display condition
  source('./reactives/plotWidgetsLoadedCond.R', local=TRUE)  # plot widgets load conditions
  source('./reactives/plotWidgetSelectedVals.R', local=TRUE)  # plot widget selected values
  source('./reactives/plot.R', local=TRUE)  # plot
  source('./reactives/plotInput.R', local=TRUE)
  
  ## UI controls
  source('./uiWidgets/generalWidgets.R', local=TRUE)
  source('./uiWidgets/fileWidgets.R', local=TRUE)
  source('./uiWidgets/manAggWidgets.R', local=TRUE)
  source('./uiWidgets/plotWidgets.R', local=TRUE)
  
  output$rappy <- renderImage({
    return(list(
      src = "www/RAPPY.png",
      height = "140px",
      width = "120px",
      contentType = "image/png",
      alt = "ggraptR"
    ))
  }, deleteFile = FALSE)  
  
  ## download handlers
  source('./reactives/download.R', local=TRUE)
  
  ## observed events
  source('./observeEvents.R', local=TRUE)
})