# NOT RUN {
if(require(dygraphs)) {
mydata <- data.frame(x = 1:100, y = rnorm(100))
manipulateWidget(
dygraph(mydata[range[1]:range[2], ],
main = title, xlab = xlab, ylab = ylab),
range = mwSlider(1, 100, c(1, 100)),
"Graphical parameters" = mwGroup(
title = mwText("Fictive time series"),
xlab = mwText("X axis label"),
ylab = mwText("Y axis label")
)
)
}
# }
Run the code above in your browser using DataCamp Workspace