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)
)
),
fluidRow(12,
C3StackedAreaChartOutput("stackedAreaChart", height=250)
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.