inst/appweb/include_server/utils_server.R

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

# autor -------------------------------------------------------------------
# carlos.perez7@udea.edu.co
# 15/02/2019 17:35:51 p. m.
#
## Cargar las funciones del paquete hipervizr a ser usadas en el BACKEND de la app Shiny-WEB:
#
# Carga de datos base para la hipercarta y el detalle de cada id_t en la respectiva carta de control.
# IMPORTANTE: Cada columna del archivo de excel debe tener un formato de celda tipo "general".
#
# Ruta base para los archivos de datos de la app HIPERVIZ:
hiperviz_data_path <- "C:\\Temp\\"
# Ruta Remota Shiny Server:
#hiperviz_data_path <- "/srv/shiny-server/hyperviz/DATOS-HIPERVIZ/"
#
hiperCartaData <- read_excel(paste0(hiperviz_data_path,"HIPERCARTAS_JUL-DIC-2018_144.xlsx"))
#
mediasColNames <- c("MEDIA_Condu", "MEDIA_ph", "MEDIA_od", "MEDIA_turb", "MEDIA_pot_redox", "MEDIA_tempera")
paramsColNames <- c("CONDUCTIVIDAD", "PH", "OXI_DISUELTO", "TURBIEDAD", "POT_REDOX", "TEMPERATURA")
#
cartaControlData <- read_excel(paste0(hiperviz_data_path,"CARTAS_CONTROL_JUL-DIC-2018_144.xlsx"))
#
media_labels <- data.frame(
  variable = c("id_t", "MEDIA_Condu", "MEDIA_ph", "MEDIA_od", "MEDIA_turb", "MEDIA_pot_redox", "MEDIA_tempera"),
  desc = c(
      "t-sub-j",
      "Conductividad el\u00E9ctrica (\u03BCS/cm)",
      "pH (U de pH)",
      "Ox\u00EDgeno disuelto (mg/l)",
      "Turbiedad (NTU)",
      "Redox (mV)",
      "Temperatura (\u00BAC)"
  ),
  stringsAsFactors=FALSE
)
#
#medicionEstacionData <- read_excel(paste0(hiperviz_data_path,"MEDICIONES_ESTACIONES-Mensual-144-NOV2019.xlsx"))
medicionEstacionData <- read_excel(paste0(hiperviz_data_path,"Consolidado-ESTAC-GNRAL-15min-MAR2020.xlsx"))
hcAnconSurEstacionData <- read_excel(paste0(hiperviz_data_path,"HIPERCARTA-ANCON-SUR-27022019.xlsx"))
hcSanMiguelEstacionData <- read_excel(paste0(hiperviz_data_path,"HIPERCARTA-SAN-MIGUEL-27022019.xlsx"))
#
# No se usa en la version actual...
# mrSanMiguelE1Data <- read_excel(paste0(hiperviz_data_path,"CONSOLIDADO_E1_CONV_825_c15mins.xlsx"))
#
# Adiciones de OBJETOS para filtros [01.NOV.2022 16:00]
param_MR_labels <- data.frame(
   param_bs = c("t_id", "CONDUCTIVIDAD", "PH", "OXIGEN_DIS", "TURBIEDAD", "POTENCIAL_REDOX", "TEMPERATURA"),
   param_mr = c("t_id", "MR_CONDUCTIVIDAD", "MR_PH", "MR_OD", "MR_TURBIEDAD", "MR_POTENCIAL_REDOX", "MR_TEMPERATURA"),
   desc = c(
      "t-sub-j",
      "Conductividad el\u00E9ctrica (\u03BCS/cm)",
      "pH (U de pH)",
      "Ox\u00EDgeno disuelto (mg/l)",
      "Turbiedad (NTU)",
      "Redox (mV)",
      "Temperatura (\u00BAC)"
   ),
   stringsAsFactors=FALSE
)
#