# autor --------------------------------------
# carlos.perez7@udea.edu.co
# carlos.perezoft@gmail.com
# 31/03/2022 4:40:35 p. m.
# autor --------------------------------------
#
tabItem(tabName = "medsRepetsAnovaTab",
h3(id = "medsRepetsAnovaTabTitle",
"An\u00E1lisis comparativo por estaci\u00F3n para mediciones mensuales [Datos de Diciembre-2021 a Septiembre-2022]."
),
bsPopover(id = "medsRepetsAnovaTabTitle", title = "Base de Datos", placement = "bottom",
trigger = "hover", content = "CONSOLIDADO_E1_CONV_825_c15mins.xlsx"
),
navbarPage(
tags$b("Descriptivo-3D Mensual"),
navbarMenu("Distribuci\u00F3n Estaciones",
tabPanel("Box Plot", icon = icon("qrcode"),
helpText("An\u00E1lisis tipo Box-Plot. Compara el par\u00E1metro seleccionado para cada estaci\u00F3n."),
bsPopover(id="boxplotEstacionesPlotMR", title="Box-Plot", placement = "top", trigger = "hover",
content=paste("Se presentan: los valores, la media y la desviaci\u00F3n est\u00E1ndar punteadas.",
"Clic en el nombre de la Estaci\u00F3n para activar/desactivar su box-plot.")),
dropdownButton(inputId = "boxplotEstacionesOpsBtnMR",
tags$h4("Opciones de Presentaci\u00F3n:"),
selectInput("boxplotEstacionesParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="CONDUCTIVIDAD", "pH"="PH",
"Oxig. Disuelto"="OXIGEN_DIS", "Turbiedad"="TURBIEDAD",
"Pot. Redox"="POTENCIAL_REDOX", "Temperatura"="TEMPERATURA"),
selected="CONDUCTIVIDAD"),
selectInput("boxplotEstacionMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
sliderTextInput(inputId = "boxplotEstacDiaMesMR", label = "D\u00EDa del Mes (T: todos)",
choices = c("T", seq(1:31)), grid = TRUE),
selectInput("boxplotEstacDiaSemMR", label = "D\u00EDa de Semana", width="220px",
choices = c("Lunes"=1, "Martes"=2, "Mi\u00E9rcoles"=3,
"Jueves"=4, "Viernes"=5, "S\u00E1bado"=6, "Domingo"=7),
selected = 0, multiple = TRUE),
awesomeCheckbox(inputId = "boxplotEstacionPtosCheckMR",
label = "Ver Puntos de Medici\u00F3n", value = FALSE, status = "success"),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("boxplotEstacionesPlotMR", width = "100%", height = "500px") %>% withSpinner(type=5, color="cadetblue")
),
tabPanel("Viol\u00EDn", icon = icon("music", lib = "glyphicon"),
helpText("An\u00E1lisis tipo Viol\u00EDn. Compara el par\u00E1metro seleccionado para cada estaci\u00F3n."),
bsPopover(id="violinEstacionesPlotMR", title="Viol\u00EDn-Plot", placement = "top", trigger = "hover",
content="Se presenta: Un Box-Plot enmarcado con una distribuci\u00F3n de densidad suavizada (Kernel Density)."),
dropdownButton(inputId = "violinEstacionesOpsBtnMR",
tags$h4("Opciones de Presentaci\u00F3n:"),
selectInput("violinEstacionesParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="CONDUCTIVIDAD", "pH"="PH",
"Oxig. Disuelto"="OXIGEN_DIS", "Turbiedad"="TURBIEDAD",
"Pot. Redox"="POTENCIAL_REDOX", "Temperatura"="TEMPERATURA"),
selected="CONDUCTIVIDAD"),
selectInput("violinEstacionMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
sliderTextInput(inputId = "violinEstacDiaMesMR", label = "D\u00EDa del Mes (T: todos)",
choices = c("T", seq(1:31)), grid = TRUE),
selectInput("violinEstacDiaSemMR", label = "D\u00EDa de Semana", width="220px",
choices = c("Lunes"=1, "Martes"=2, "Mi\u00E9rcoles"=3,
"Jueves"=4, "Viernes"=5, "S\u00E1bado"=6, "Domingo"=7),
selected = 0, multiple = TRUE),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("violinEstacionesPlotMR", width = "100%", height = "500px") %>% withSpinner(type=5, color="cadetblue")
),
tabPanel("Distribuci\u00F3n de Densidad", icon = shiny::icon("stats", lib = "glyphicon"),
helpText("Distribuci\u00F3n de Densidad (suavizado). Compara el par\u00E1metro seleccionado para cada estaci\u00F3n."),
dropdownButton(inputId = "densidadEstacionOpsBtnMR",
tags$h4("Opciones de Presentaci\u00F3n:"), # Para ajutar el ancho del Select!
selectInput("densidadEstacionesParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="CONDUCTIVIDAD", "pH"="PH",
"Oxig. Disuelto"="OXIGEN_DIS", "Turbiedad"="TURBIEDAD",
"Pot. Redox"="POTENCIAL_REDOX", "Temperatura"="TEMPERATURA"),
selected="CONDUCTIVIDAD"),
selectInput("densidadEstacionMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
sliderTextInput(inputId = "densidadEstacDiaMesMR", label = "D\u00EDa del Mes (T: todos)",
choices = c("T", seq(1:31)), grid = TRUE), # Para ajutar el ancho del Select!
selectInput("densidadEstacDiaSemMR", label = "D\u00EDa de Semana", width="220px",
choices = c("Lunes"=1, "Martes"=2, "Mi\u00E9rcoles"=3,
"Jueves"=4, "Viernes"=5, "S\u00E1bado"=6, "Domingo"=7),
selected = 0, multiple = TRUE),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("distriDensiEstacionesPlotMR", width = "100%", height = "500px") %>% withSpinner(type=4, color="cadetblue")
),
tabPanel("Box Plot - Variaci\u00F3n Temporal-Mes", icon = icon("history"),
helpText("An\u00E1lisis tipo Box Plot - Variaci\u00F3n Temporal-Mes. Compara el par\u00E1metro seleccionado para variaci\u00F3n temporal por mes."),
bsPopover(id="boxplotVarTempPlotMR", title="Box-Plot", placement = "top", trigger = "hover",
content=paste("Se presentan: los valores, la media y la desviaci\u00F3n est\u00E1ndar punteadas.",
"Clic en el nombre del MES para activar/desactivar su box-plot.")),
dropdownButton(inputId = "boxplotVarTempOpsBtn",
tags$h4("Opciones de Presentaci\u00F3n:"),
selectInput("boxplotVarTempParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="CONDUCTIVIDAD", "pH"="PH",
"Oxig. Disuelto"="OXIGEN_DIS", "Turbiedad"="TURBIEDAD",
"Pot. Redox"="POTENCIAL_REDOX", "Temperatura"="TEMPERATURA"),
selected="CONDUCTIVIDAD"),
selectInput(inputId='boxplotVarTempEstacionMR', label='Estaci\u00F3n',
choices=c("San Miguel"="1_SAN_MIGUEL", "Anc\u00F3n Sur"="3_ANCON_SUR", "Aula Ambiental"="8_AULA_AMBIENTAL"),
selected = "1_SAN_MIGUEL"),
selectInput("boxplotVarTempMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
sliderTextInput(inputId = "boxplotVarTempDiaMesMR", label = "D\u00EDa del Mes (T: todos)",
choices = c("T", seq(1:31)), grid = TRUE),
selectInput("boxplotVarTempDiaSemMR", label = "D\u00EDa de Semana", width="220px",
choices = c("Lunes"=1, "Martes"=2, "Mi\u00E9rcoles"=3,
"Jueves"=4, "Viernes"=5, "S\u00E1bado"=6, "Domingo"=7),
selected = 0, multiple = TRUE),
awesomeCheckbox(inputId = "boxplotVarTempPtosCheckMR",
label = "Ver Puntos de Medici\u00F3n", value = FALSE, status = "success"),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("boxplotVarTempPlotMR", width = "100%", height = "600px") %>% withSpinner(type=7, color="cadetblue")
),
tabPanel("Contornos", icon = icon("paperclip"),
helpText("An\u00E1lisis por medio de contornos (Densidad 2D)."),
dropdownButton(inputId = "contornoEstacionesOpsBtnMR",
tags$h4("Opciones de Presentaci\u00F3n:"),
# Nota: En el listado de choices se usa una lista c("label"="id_txt"). En el server el input entrega el "id_txt".
selectInput(inputId='contornoFiltroEstacionMR', label='Estaci\u00F3n',
choices=c("San Miguel"="1_SAN_MIGUEL", "Anc\u00F3n Sur"="3_ANCON_SUR", "Aula Ambiental"="8_AULA_AMBIENTAL"),
selected = "1_SAN_MIGUEL"),
selectInput("contornoParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="MR_CONDUCTIVIDAD", "pH"="MR_PH",
"Oxig. Disuelto"="MR_OD", "Turbiedad"="MR_TURBIEDAD",
"Pot. Redox"="MR_POTENCIAL_REDOX", "Temperatura"="MR_TEMPERATURA"),
selected="MR_CONDUCTIVIDAD"),
selectInput("contornoNivelEstMR", label = "Nivel", width="220px",
choices = c("Bajo"=1, "Medio"=2, "Alto"=3),
selected = 0, multiple = TRUE),
selectInput("contornoEstacionMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
selectInput("contornoAnioEstMR", label = "A\u00F1o", width="220px",
choices = c("2021"=2021, "2022"=2022),
selected = 0, multiple = TRUE),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("contornoEstacionPlotMR", width = "100%", height = "650px") %>% withSpinner(type=4, color="cadetblue")
),
tabPanel("Superficie 3D", icon = icon("cube"),
helpText("An\u00E1lisis por medio de Superficie 3D."),
dropdownButton(inputId = "contornoEstacionesOpsBtnMR",
tags$h4("Opciones de Presentaci\u00F3n:"),
# Nota: En el listado de choices se usa una lista c("label"="id_txt"). En el server el input entrega el "id_txt".
selectInput(inputId='super3DFiltroEstacionMR', label='Estaci\u00F3n',
choices=c("San Miguel"="1_SAN_MIGUEL", "Anc\u00F3n Sur"="3_ANCON_SUR", "Aula Ambiental"="8_AULA_AMBIENTAL"),
selected = "1_SAN_MIGUEL"),
selectInput("super3DParamMR", label = "Par\u00E1metro", width="220px",
choices=c("Conductividad"="MR_CONDUCTIVIDAD", "pH"="MR_PH",
"Oxig. Disuelto"="MR_OD", "Turbiedad"="MR_TURBIEDAD",
"Pot. Redox"="MR_POTENCIAL_REDOX", "Temperatura"="MR_TEMPERATURA"),
selected="MR_CONDUCTIVIDAD"),
selectInput("super3DNivelEstMR", label = "Nivel", width="220px",
choices = c("Bajo"=1, "Medio"=2, "Alto"=3),
selected = 0, multiple = TRUE),
selectInput("super3DEstacionMesMR", label = "Mes", width="220px", # Para ajutar el ancho del Select!
choices = c("Enero"=1, "Febrero"=2, "Marzo"=3, "Abril"=4, "Mayo"=5, "Junio"=6,
"Julio"=7, "Agosto"=8, "Septiembre"=9, "Octubre"=10, "Noviembre"=11, "Diciembre"=12),
selected = 0, multiple = TRUE),
selectInput("super3DAnioEstMR", label = "A\u00F1o", width="220px",
choices = c("2021"=2021, "2022"=2022),
selected = 0, multiple = TRUE),
tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
size = "xs", tooltip = tooltipOptions(title = "Cambiar opciones...")
),
plotlyOutput("super3dEstacionPlotMR", width = "100%", height = "650px") %>% withSpinner(type=4, color="cadetblue")
)
###
) # FIN navbarMenu
) # FIN navbarPage
) # FIN tabItem
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.