tutorials/GaugeApp2/ui.R

In garrettgman/shiny-js-tutorials: javascript widget examples for shiny web apps

shinyUI(

  navbarPage(id="main", windowTitle = "Friss", position = "fixed-top", title = NULL,

   header = FrissHeader,

   tabPanel("panel 1", icon = icon("dashboard"),

      h3("Gauge demo"),
      
      fluidRow(
        
        column(3,
        div( h4("Total", style = "text-align:center"),
             C3GaugeOutput("Gauge1", height = 150), style = "width:75%; margin: auto")),
        
        column(3,
        div( h4("last 90 days", style = "text-align:center"),
             C3GaugeOutput("Gauge2", height = 150), style = "width:75%; margin: auto")),
         
        column(3,
        div( h4("last 30 days", style = "text-align:center"),
             C3GaugeOutput("Gauge3", height = 150), style = "width:75%; margin: auto")),
         
        column(3,
        div( h4("last 6 days", style = "text-align:center"),
             C3GaugeOutput("Gauge4", height = 150), style = "width:75%; margin: auto"))
      ),
      
      br(),
      
      fluidRow(
        column(3,
               h4("Process", style = "text-align:center"),
               C3PieChartOutput("PieProcess",height = 250)
        ),
        column(3,
               h4("Label", style = "text-align:center"),
               C3PieChartOutput("PieLabel",height = 250)
        ),
        column(3,
               h4("Product", style = "text-align:center"),
               C3PieChartOutput("PieProduct",height = 250)
        ),
        column(3, style = "overflow: hidden;",
               h4("Branch", style = "text-align:center"),
               C3PieChartOutput("PieBranch",height = 250)
        )
      )

   )
))