global.R

# ProViz
# 
# MIT License
#
# Copyright © 2022 SomaLogic Operating Co., Inc.
# 
# Permission is hereby granted, free of charge, to any person obtaining a copy 
# of the ProViz software and associated documentation files (the "Software"),
# to deal in the Software without restriction, including without limitation the 
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or 
# sell copies of the Software, and to permit persons to whom the Software is 
# furnished to do so, subject to the following conditions outlined below. 
# Further,  ProViz and SomaLogic are trademarks owned by SomaLogic Operating Co., Inc. 
# No license is hereby granted to these trademarks other than for purposes of 
# identifying the origin or source of the Software.
# 
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
# 
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 
# AUTHORS OR COPYRIGHT HOLDER(S) BE LIABLE FOR ANY CLAIM, DAMAGES, WHETHER 
# DIRECT OR  INDIRECT, OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 
# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR 
# THE USE OR OTHER DEALINGS IN THE SOFTWARE.

library(shiny)
library(shinydashboard)
library(shinyWidgets)

library(DT)
library(dplyr)
library(ggbeeswarm)
library(ggplot2)
library(magrittr)
library(plotly)
library(readr)
library(tidyr)

library(SomaDataIO)

# common pieces for chart selections
colPalette <- c("dodgerblue", "red", "#E69F00", "#009E73", "cyan",
                "#999999","#CC79A7", "green", "black", "#D55E00", "#F0E442")
colorNames <- c('Blue', 'Red', 'Bright Orange', 'Dark Green', 'Cyan', 'Grey',
              'Magenta', 'Bright Green', 'Black', 'Dark Orange')
lineStyleNames <- c('Solid', 'Dashed', 'Dotted', 'Dash-Dot', 'Long Dash')