inst/app/ui_tab_dashboard.R

In cantabricagr/cantabricar: Una ShinyApp para gestionar las cosechas de Cantabrica Agricultura Urbana

tab_dashboard <- function() {
    tabItem(
        tabName = "dashboard",
        fluidPage(
            useShinyjs(),
            fluidRow(actionButton("actualizar", "Actualizar", icon("sync"), style = "color: #fff; background-color: red; border-color: red"),),
            br(),
            br(),
            fluidRow(
                box(
                    title = "Monitor de actividad", width = 12,
                    img(src = "logo.jpg", width = 100, height = 100, alt = "Logo"),
                    infoBox(title = "Sembradas", width = 2, color = "aqua", value = textOutput("n_sembradas"), icon = icon("tint")),
                    infoBox(title = "Germinadas", width = 2, color = "green", value = textOutput("n_germinadas"), icon = icon("seedling")),
                    infoBox(title = "Hojas verdaderas", width = 2, color = "orange", value = textOutput("n_hojas"), icon = icon("leaf")),
                    infoBox(title = "Cosechadas", width = 2, color = "fuchsia", value = textOutput("n_cosechadas"), icon = icon("tractor"))
                )
            ),
            br(),
            br(),
            fluidRow(
                column(
                    width = 3,
                    box(title = "Plantas sembradas", width = 12, plotlyOutput(outputId = "dashboard_species_plot"))
                ),
                column(
                    width = 9,
                    box(title = "Siembras por fecha", width = 12, plotlyOutput(outputId = "dashboard_fechas_plot"))
                )
            )
        )
    )
}