inst/appweb/include_ui/cartaControlDetalle_tab.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.
# ***
# NUEVO: Tener en cuenta que el "x_tab" tiene un SOLO tabItem, esto debido a que la forma
# de procesamiento de R-Studio y Shiny generan error de ejecucion y/o compilacion
# ***
#
tabItem(tabName = "cartaControlDetalleTab",
  h2(id="cartCtrlDetTitle", "Hipercarta con detalle de Cartas de Control [Datos de Julio a Diciembre de 2018]."),
  bsPopover(id="cartCtrlDetTitle", title="Base de Datos", placement="bottom", trigger="hover",
            content="HIPERCARTAS_JUL-DIC-2018_144<br/>R.obj=hiperCartaData<br/>CARTAS_CONTROL_JUL-DIC-2018_144<br/>R.obj=cartaControlData"),
  wellPanel(style = "background: white",
     helpText("Clic y arrastrar para zoom in (doble clic para restaurar). Se usa una Hipercarta a la vez debido a la diferencia entre escalas."),
     # UTIL: El uso de box(..) evita mayor parametrizacion en el layout "fluidRow":
     fluidRow(
        box(title = "Hipercarta (General)", status = "success", solidHeader = TRUE, collapsible = TRUE, width = 12,
          dropdownButton(tags$h3("Ajustes Hipercarta"),
             selectInput("hipercartaBaseSel", label = "Hipercarta", width="220px", # Para ajutar el ancho del Select!
                     choices=c("Conductividad"="MEDIA_Condu", "pH"="MEDIA_ph",
                               "Oxig. Disuelto"="MEDIA_od", "Turbiedad"="MEDIA_turb",
                               "Temperatura"="MEDIA_tempera"),
                     selected="MEDIA_Condu"),
             selectInput("ccTipoCarta", label = "Presentar como", width="220px", # Para ajutar el ancho del Select!
                  choices = c("Cada Serie Independiente"="SERIE_IND", "Intervalo de Confianza"="INT_CONF"),
                  selected = "INT_CONF"),
             checkboxInput("ccShowgridCheck", label = "Usar Grid", value = FALSE),
             tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
             circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
             size = "xs", tooltip = tooltipOptions(title = "Ajustes Hipercarta...")
           ),
           dygraphOutput("hipercartaBasePlot", width = "100%", height = "450") %>% withSpinner(type=4, color="cadetblue")
        ),
        box(title = "Carta de Control (Detalle)", status = "primary", solidHeader = TRUE, collapsible = TRUE,  width = 12,
           dropdownButton(tags$h3("Ajustes Carta"),
             # Nota: En el listado de choices se usa una lista c("label"=id). En el server el input entrega el id.
             selectInput("ccTipoDia", label = "Tipo de D\u00EDa", width="220px", # Para ajutar el ancho del Select!
                  choices = c("Todos"=0, "T\u00EDpico Laboral"=1, "S\u00E1bado"=2, "Domingo-Festivo"=3),
                  selected = 0),
             selectInput("ccMes", label = "Mes", width="220px", # Para ajutar el ancho del Select!
                  choices = c("Todos"=0, "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),
             selectInput("ccDiaSemana", label = "D\u00EDa de Semana", width="220px", # Para ajutar el ancho del Select!
                  choices = c("Todos"=0, "Lunes"=1, "Martes"=2, "Mi\u00E9rcoles"=3,
                                         "Jueves"=4, "Viernes"=5, "S\u00E1bado"=6, "Domingo"=7),
                  selected = 0),
             checkboxInput("cartaCShowCero", label = "Incluir el cero en eje Y", value = FALSE),
             tags$i("Actualizaci\u00F3n autom\u00E1tica..."),
             circle = TRUE, status = "danger", icon = icon("gear"), width = "250px",
             size = "xs", tooltip = tooltipOptions(title = "Ajustes Carta de Control...")
           ),
           dygraphOutput("cartaControlDetallePlot", width = "100%", height = "450") %>% withSpinner(type=5, color="cadetblue")
       )
     ) # end fluidrow
  )
)
# Este archivo es incluido en una seccion "body <- dashboardBody(..)" del "ui.R",
# por eso el cierre del tabItem no lleva coma ","
#