# NOT RUN {
translations <- mwTranslations(
settings = "Parametres", chart = "Graphique", compare = "Comparaison",
compareVars = "Variable de comparaison", ncharts = "Nb graph.", ncol = "Nb col."
)
if (require(dygraphs)) {
mydata <- data.frame(year = 2000+1:100, value = rnorm(100))
manipulateWidget(dygraph(mydata[range[1]:range[2] - 2000, ], main = title),
range = mwSlider(2001, 2100, c(2001, 2100)),
title = mwText("Fictive time series"),
.translations = translations)
}
# }
Run the code above in your browser using DataLab