# autor -------------------------------------------------------------------
# carlos.perez7@udea.edu.co
# 01/09/2018 5:47:28 p. m.
#
# NOTA: las inclusiones son relativas a la ubicion del archivo. "server.R"
#
# NOTA1: Inicializa los listeners del paquete shinyhelper, para
# asociar ayura en linea con ".md" files. Esto en la ubicacion
# relativa al "server.R"; en el directorio: "/helpfiles/" (nombre por defecto).
# El nombre del directorio puede cambiarse, y especificar en la invocacion.
# --> La invocacion a "observe_helpers" debe hacerse en el archivo "server.R",
# --> siempre dentro de la funcion "shinyServer(..)".
#
# NOTA2: Es posible crear el directorio por defecto de archivos de ayuda con
# la fincion propia del paquete shinyhelper:
# create_help_files(files = c("controls_help", "plot_help"), help_dir = "helpfiles")
# Esto crea el dir "helpfiles" por defecto en el directorio actual de la consola de $R>.
# Debe quedar o ser movido al mismo nivel del archivo "server.R", ya que el acceso en
# tiempo de ejecucion de relativo dicho elemento.
# -------------------------------------------------------------------
source('include_server/utils_server.R', local=TRUE)
# INICIO SERVER
shinyServer(function(input, output, session) {
# INIT listener de elementos de "textos de ayuda":
observe_helpers(help_dir = "help_files")
#
# ELEMENTOS CASOS DE ESTUDIO
source('include_server/casos_estudio_server.R', local=TRUE)
#
# ELEMENTOS SET DE DATOS
source('include_server/set_datos_subm_server.R', local=TRUE)
#
# ESPECIFICAR MODELO SEM SINTAXIS LAVAAN
source('include_server/modelo_sem_server.R', local=TRUE)
#
# FUNCIONES SEMVIZ UTIL PARA EL GRAFO CON VIZNETWORK
source('include_server/grafo_semviz_util_server.R', local=TRUE)
#
# VISNETWORK PARA RESULTADOS MODELO SEM BASICO
source('include_server/dashbas_subm_server.R', local=TRUE)
#
# VISNETWORK PARA RESULTADOS MODELO SEM AVANZADO
source('include_server/dashavan_subm_server.R', local=TRUE)
#
# VISNETWORK PARA ANALISIS DE HIPOTESIS
source('include_server/hipotesis_model_server.R', local=TRUE)
#
# MENU DE ANALISIS DESCRIPTIVO DEL MODELO DE MEDICION - SEM
source('include_server/modelo_medida_desc_subm_server.R', local=TRUE)
#
# MENU DE ANALISIS DE PREDICCION DEL MODELO ESTRUCTURAL - SEM
source('include_server/mod_estruct_predic_subm_server.R', local=TRUE)
#
# FINALIZACION DE SESION WEB ----------------------------------------------
# Finaliza la ejecucion de la APP en R-Studio al cerrar la Ventana PPAL:
session$onSessionEnded(function() {
stopApp()
})
## FIN SERVER
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.