examples/crandash/ui.R

In PaskalSunari/semantic.dashboard-develop: Dashboard with Fomantic UI Support for Shiny

dashboardPage(title = "crandash-semantic",
              dashboardHeader(color = "blue"),
              dashboardSidebar(side = "left", size = "wide", color = "grey", center = TRUE,
                               div(
                                 sliderInput("rateThreshold", "Warn when rate exceeds",
                                             min = 0, max = 50, value = 3, step = 0.1
                                 ), align = "center", style = "margin: 0.5em;"
                               ),
                               menuItem("Dashboard", tabName = "dashboard"),
                               menuItem("Raw data", tabName = "rawdata")
              ),
              dashboardBody(
                tabItems(selected = 1,
                         tabItem(tabName = "dashboard",
                                 fluidRow(
                                   valueBoxOutput("rate"),
                                   valueBoxOutput("count"),
                                   valueBoxOutput("users")
                                 ),
                                 fluidRow(
                                          box(width = 10,
                                            title = "Popularity by package (last 5 min)",
                                            color = "blue", ribbon = TRUE, title_side = "top right",
                                            bubblesOutput("packagePlot", width = "100%", height = 600)
                                          ),
                                          box(width = 6,
                                            title = "Top packages (last 5 min)",
                                            color = "blue", ribbon = TRUE, title_side = "top right",
                                            tableOutput("packageTable")
                                          )
                                 )),
                         tabItem(tabName = "rawdata",
                                 fluidRow(
                                   numericInput("maxrows", "Rows to show", 25),
                                   verbatimTextOutput("rawtable"),
                                   downloadButton("downloadCsv", "Download as CSV"))
                         ))
              )
)