require(manipulateWidget)
require(dygraphs)
mydata <- data.frame(
year = 2000+1:100,
series1 = rnorm(100),
series2 = rnorm(100),
series3 = rnorm(100)
)
ui <- fillPage(
fillRow(
flex = c(NA, 1),
div(
textInput("title", label = "Title", value = "glop"),
selectInput("series", "series", choices = c("series1", "series2", "series3"))
),
mwModuleUI("ui", height = "400px")
)
)
Range = 2001
server <- function(input, output, session) {
c <- manipulateWidget(
{
dygraph(mydata[range[1]:range[2] - 2000, c("year", series)], main = title)
},
range = mwSlider(Range, 2100, c(2010, 2050)),
series = mwSharedValue(),
title = mwSharedValue(
{"init"}
), .runApp = FALSE,
.compare = "range"
)
titre <- reactive({
input$title
})
mwModule("ui", c, title = titre, series = reactive(input$series))
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.