inst/appweb/global.R

In carlosperezoft/hipervizr: Dashboard para Hipercartas y Cartas de Control de Red Rio.

# autor -------------------------------------------------------------------
# carlos.perez7@udea.edu.co
# 01/02/2019 9:26:08 a. m.
#
# Inclusion de la librerias propias para la ejecucion de la aplicacion
# Shiny WEB hipervizr:
#
# Se inicializa esta variable de entorno en R-Studio para que permita un tope maximo
# de DLLs (WINDOWS) cargadas por Session LOCAL de R:
Sys.setenv(R_MAX_NUM_DLLS = 512)
#
#  Paquetes actuales de hiperviz v2.0, sobre R 4.1.2
suppressPackageStartupMessages({
   library(shinydashboard, quietly=TRUE)  # v0.7.2
   library(shinycssloaders, quietly=TRUE) # v1.0.0
   library(shinyWidgets, quietly=TRUE) # v0.6.4
   library(shinyhelper, quietly=TRUE)  # v0.3.2
   library(shinyBS, quietly=TRUE)      # v0.61
   library(markdown, quietly=TRUE)     # v1.1
   library(htmlwidgets, quietly=TRUE)  # v1.5.4
   library(dplyr, quietly=TRUE)        # v1.0.8
   library(reshape2, quietly=TRUE)     # v1.4.4
   library(RColorBrewer, quietly=TRUE) # v1.1-2
   library(jsonlite, quietly=TRUE)  # v1.7.3
   library(plotly, quietly=TRUE)    # v4.10.0
   library(ggplot2, quietly=TRUE)   # v3.3.5
   library(parcoords, quietly=TRUE) # v1.0.0
   library(dygraphs, quietly=TRUE)  # v1.1.1.6
   library(readxl, quietly=TRUE)    # v1.3.1
   library(corrplot, quietly=TRUE)  # v0.92
   library(qgraph, quietly=TRUE)    # v1.9
   # Paquetes para graficos extra:
   library(circlize, quietly=TRUE)  # v0.4.14
   library(GGally, quietly=TRUE)    # v2.1.2
   library(rAmCharts, quietly=TRUE) # v2.1.13
   library(heatmaply, quietly=TRUE) # v1.3.0
   # Paquetes para Medidas Repetidas ANOVA:
   library(hexbin, quietly=TRUE) # v1.28.2
   library(formattable, quietly=TRUE) # v0.2.1
   library(tidyverse, quietly=TRUE) # v1.3.1
   library(ggpubr, quietly=TRUE)    # v0.4.0
   library(rstatix, quietly=TRUE)   # v0.7.0
   library(DT, quietly=TRUE)   # v0.22
})
#
## Cargar las funciones propias del paquete semviz ubicadas en /R dir base:
#
for (file in list.files(system.file("R", package = "hipervizr"), pattern = "\\.(r|R)$", full.names = TRUE)) {
  source(file, local = TRUE)
}
#
# Se especifica el numero de digitos por defecto al visualizar datos numericos
# NOTA: El valor de 4 conserva el estandar de lavaan en los datos numericos.
options(digits=4)
#
# Se establece el tema de fondo por defecto para los graficos con ggplot:
theme_set(theme_bw())  # tema black_white !
#