inst/shoggr/ui.R

In abeeisnotabug/loggr: Log Simulations on Multi-Core Machines

library(shinydashboard)
library(shinyjs)
library(shinybusy)

dashboardPage(
  skin = "red",

  dashboardHeader(
    title = "Simulation Monitor",
    titleWidth = 260,
    settingsMenuUI("settingsMenu")
  ),

  dashboardSidebar(
    collapsed = FALSE,
    width = 260,
    sidebarMenu(
      id = "tabs",
      menuItem(
        text = "Server Monitor",
        tabName = "serverMonitorTab",
        icon = icon("tachometer-alt"),
        selected = TRUE
      ),
      menuItem(
        text = "Progress",
        tabName = "simuMonitorTab",
        icon = icon("database")
      ),
      hr(),
      simuPickerUI("sidebarSimuPicker"),
      hr(),
      makeButton("refreshPage", "Clear and reload", "redo")
    )
  ),

  dashboardBody(
    tags$head(
      tags$style(
        ".nav-tabs-custom .nav-tabs li.active { border-top-color: #d73925 }"
      ),
      tags$style(
        type = "text/css",
        "#inline label{ display: table-cell; text-align: center; vertical-align: middle; color: white }
         #inline .form-group { display: table-row }"
      ),
      tags$style(
        type = "text/css",
        ".modal-dialog { width: fit-content !important; }"
      ),
      tags$style(HTML(".small-box {height: 80px}")),
      tags$style(HTML("h3 { margin-top : 0 }")),
      tags$style(HTML("h4 { margin-top : 0 }")),
    ),
    useShinyjs(),
    use_busy_spinner(spin = "fading-circle", position = "full-page"),
    tabItems(
      tabItem(
        tabName = "simuMonitorTab", simuMonitorUI("simuMonitor")
      ),
      tabItem(
        tabName = "serverMonitorTab", serverMonitorUI("serverMonitor")
      )
    )
  )
)