#source('directoryInput.R')
# library(shiny)
# library(DT)
# library(tidyverse)
# library(lubridate)
# maybe put these in the settings??
# FIAspikesClean <- c('C0','C2','C3','C4','C5','C6 (C4:1-DC)','C8','C10','C12','C14','C16','C18','lysoPC a C18:0',
# 'PC aa C24:0','SM C18:0','H1','PC aa C36:0')
#
# settings <- list(fiaFile='FIA.csv', fiaIstdFile = 'FIA_ISTD.csv', fiaFeatures = FIAspikesClean)
#
# # setting some global variables to NULL, will be assigned later to real objects / values
# globalSettings <- NULL
# globalResdata <- NULL
# globalResdataNice <- NULL
# globalUIdata <- list()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.