library(shiny)

dbSidebar <- dashboardSidebar(
    sidebarMenu(
        menuItem("Documentación",
                 tabName = "documentacion"),
        menuItem("Sección de Visualización",
                 tabName = "dashboard")
    )
)

dbHeader <-  dashboardHeader(title = "Visualización Indicadores",
                             tags$li(a(href = 'https://www.cise.uadec.mx/',
                                       img(src = 'http://www.uadec.mx/wp-content/uploads/2016/01/i%CC%81ndice.jpg',
                                           title = "CISE - UAdeC", height = "30px", id = "optionalstuff3"),
                                       style = "padding-top:10px; padding-bottom:10px;"),
                                     class = "dropdown"))

dbBody <- dashboardBody(
    tabItems(
        tabItem("documentacion",
            h2("Documentación y bienvenida."),
            HTML(textos$Contenido[textos$Tipo == "p2"]),
            HTML(textos$Contenido[textos$Tipo == "p3"])
                ),
        tabItem("dashboard",
                fluidPage(
                    tags$head(
                        includeCSS("styles.css")
                    ),

                    titlePanel("Plataforma Indicadores Internos"),
                    HTML(textos$Contenido[textos$Tipo == "p1"]),

                    sidebarLayout(
                        sidebarPanel(

                            radioButtons("opcionesViz",
                                         "Opciones de Visualización",
                                         choices = c("Grafica de barras" = "bar",
                                                     "Serie de Tiempo" = "ts",
                                                     "Mapa" = "map")
                            ),

                            selectInput(inputId = "selInd",
                                        label = "Seleccione un indicador",
                                        choices = opcionesIndicadores),

                            conditionalPanel(
                                condition = "input.opcionesViz == 'bar' || input.opcionesViz == 'map'",
                                uiOutput("sldAnio")
                            ),
                            conditionalPanel(
                                condition = "input.opcionesViz == 'ts'",
                                selectInput(inputId = "selEdos",
                                            label = "Seleccione uno (o más) estado(s)",
                                            multiple = TRUE,
                                            selected = "Morelos",
                                            choices = sort(unique(mapa$ENTIDAD))),
                                actionButton("btnAccion",
                                             "Generame la grafica")
                            ),

                        ),

                        mainPanel(
                            withSpinner(uiOutput("vizualizacion"))
                        )
                    )
                )
        )
    )
)

shinyUI(
    dashboardPage(
        skin = "black",
        header = dbHeader,
        sidebar = dbSidebar,
        body = dbBody
    )
)

