development/shinyDashboardJR.R

In ratkovic-judgeresearch/shinyPublic: Functions for JudgeResearch Shiny

library(shinyPublic)
# setwd('~/Dropbox/Github/shinyPublic/development')
loadFile(objName = "reportList", fileName = "practiceGAreport.rds")
lossObj <- reportList[["byGen"]][["loss"]]

ui <- dashboardPage(
  dashboardHeader(title = "JudgeResearch"),
  dashboardSidebar(
    # Custom CSS to hide the default logout panel
    tags$head(tags$style(HTML('.logo {
                              background-color: #03123a !important;
                              }
                              .navbar {
                              background-color: #03123aFF !important;
                              }
                              .irs-bar {
                              background-color: #03123aD9 !important;
                              border-color: #03123aD9 !important;
                              }
                              .irs-bar-edge {
                                background-color: #03123aFF !important;
                              }
                              .irs-from {
                                background-color: darkgrey !important;
                                                            }
                              .irs-to {
                                background-color: darkgrey !important;
                              }
                              .irs-slider {
                                background-color: #03123aFF !important;
                              }
                              '
                              ))),
    
    # The dynamically-generated user panel
    uiOutput("userpanel")
  ),
  dashboardBody(    # Boxes need to be put in a row (or column)
    tags$head(tags$style(HTML('
      .main-header .logo {
        font-family: "Mark Pro Bold", Times, "Mark Pro Bold", serif;
        font-weight: bold;
        font-size: 28px;
      }
    '))),
    fluidRow(
      box(plotOutput("plot11", height = 100)),
      fluidPage(
        fluidRow(position = "bottom",
                 # tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar {background:  #03123a !important}")),
          column(12,
                 # Slider
                 sliderInput("slider2", label=NULL, min = 0, 
                             max = 1, value = c(0, 1), ticks= FALSE                             )
          )
        )
      )
    )
  ),
  tags$head(tags$style(HTML('* {font-family: "MarkPro"};')))
)

server <- function(input, output, session) {
  ## First row
  output$plot11 <- renderPlot({
    plotGALoss("practiceGAreport.rds", input$slider2[1], input$slider2[2])
  })
  output$plot12 <- renderPlot({
    plotGALoss("practiceGAreport.rds", input$slider2[1], input$slider2[2])
  })
  output$plot13 <- renderPlot({
    plotGALoss("practiceGAreport.rds", input$slider2[1], input$slider2[2])
  })
  
}

shinyApp(ui, server)