Shiny Dashboard

library("shiny")
library("shinydashboard")

Dashboard structure

• Header
• SideBar
• Body

header <- dashboardHeader(
  dropdownMenu(type = "messages")
  
)
sidebar <- dashboardSidebar()
body <- dashboardBody()


ui <- dashboardPage(header, sidebar, body)


server <- function(input, output){}

shinyApp(ui, server)

Input functions

• actionButton()
• checkboxInput()
• dateInput()
• numericInput()
• radioButtons()
• selectInput()
• sliderInput()
• textInput()

Render functions

• renderPrint(): renders any printed output - verbatimTextOutput(). textOutput()
• renderText(): renders character strings - textOutput()
• renderTable(): a dataframe, matrix or table - tableOutput()
• renderDataTable(): renders a data table - dataTableOutput()
• renderPlot(): Plot - plotOutput()
• renderImage(): Images - imageOutput()
• renderUI(): renders either HTML or a shiny tag object - uiOutput()

Read an real time data

reactiveFileReader

This function works by checking the file’s last modified time, if it has changed then the file is read again.

intervalMillis: determines how many milliseconds to wait between checks of the file’s last modified time. session: user session

server <-  function(input, output, session){
  
  reactive_data <- reactiveFileReader( 
    intervalMillis = 1000
    session = session
    filePath = "file.csv"
    readFunc = function(filePath) read.csv(url(filePath))
  )

  
  output$table <- renderTable({
    reactive_data()
  })
  
  
}

Optimizing performance

• Code located outsidethe server function will only be executed one time

Dynamic boxes

• renderInfoBox() - infoBoxOutput()
• renderValueBox() - valueBoxOutput()