library(shiny)
library(antaresFlowbased)
library(DT)
library(data.table)
library(rAmCharts)
library(manipulateWidget)
library(shinyWidgets)
shinyUI(fluidPage(
# Application title
titlePanel(div("Flow-Based domains and CWE Net Positions", align = "center"), windowTitle = "Flow-Based domains and CWE Net Positions"),
# Show a plot of the generated distribution
column(12, align="center",
column(1,
dropdownButton(label ="Hours", status = "info",circle = FALSE,
h4("Hour h = time step [h ; h+1]"),
checkboxInput("hAll", "All",FALSE),
conditionalPanel("!input.hAll", {
selectInput("h", "Somes", 0:23, multiple = TRUE, selected = 19)
}))
),
column(1,
dropdownButton(label ="dayTypes", status = "info",circle = FALSE,
checkboxInput("dAll", "All",FALSE),
conditionalPanel("!input.dAll", {
selectInput("d", "dayType", dayTyList, multiple = TRUE, selected = 1)
}))
),
column(2,checkboxInput("nrm", "Net positions before adequacy patch",TRUE)),
column(2,checkboxInput("adq", "Net positions after adequacy patch",TRUE)),
column(2,dateRangeInput("dateR", "Range dates", start = rangeDate[1], end = rangeDate[2],
min = rangeDate[1], max = rangeDate[2])),
column(2,
checkboxInput("filteringEmptyDomains", "filtering Empty Domains", FALSE)
),
column(2,
selectInput("col", "Color scale", choices = c("cm.colors", "topo.colors", "terrain.colors", "heat.colors", "rainbow"), selected = "rainbow"))
),
column(6, align="center",
column(6,selectInput("ctry1G1", "Frist country, graph 1", countTryList)),
column(6, selectInput("ctry2G1", "Second country, graph 1", countTryList, selected = countTryList[2]))),
column(6, align="center",
column(6,selectInput("ctry1G2", "Frist country, graph 2", countTryList)),
column(6,selectInput("ctry2G2", "Second country, graph 2", countTryList, selected = countTryList[2]))),
column(12,
actionButton("go", "Refresh"),style = 'text-align: center'
),
mainPanel(
column(6,combineWidgetsOutput("poVi", height = "600px")),
column(6,combineWidgetsOutput("poVi2", height = "600px")) , width = 12 )
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.