R/ui.R

library(shinydashboard)
library(shiny)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(
    selectInput(inputId = 'symbol',
                label = 'Symbol',
                choices = c('APPL','GOOGL'),
                selected = 'GOOGL')
  ),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      dygraphs::dygraphOutput('dygraph')
    )
  )
)
frandiego/brokerDashboard documentation built on Feb. 19, 2018, 12:02 a.m.