Here is the dygraph output from r params$myDateRange[1]
to r params$myDateRange[2]
using the timezone "r params$myTimezone
".
thresholds <- aquanes.report::get_thresholds() if (!all(is.na(params$myData1))) { dy1 <- dygraph(data = params$myData1, group = "dy_group", # main = unique(ts_data()$LocationName), ylab = "Parameter value") %>% # dySeries("V1", # label = sprintf("%s (%s)", # unique(ts_data()$ParameterName), # unique(ts_data()$ParameterUnit))) %>% dyLegend(show = "always", hideOnMouseOut = FALSE, width = 500) %>% dyRangeSelector(dateWindow = params$myDateRange) %>% dyOptions(useDataTimezone = TRUE, drawPoints = TRUE, pointSize = 2) if(params$add_thresholds == TRUE) { aquanes.report::dygraph_add_limits(dygraph = dy1, limits_df = thresholds[thresholds$ParameterName %in% params$para1,]) } else { dy1 } }
if (!all(is.na(params$myData2))) { dy2 <- dygraph(data = params$myData2, group = "dy_group", # main = unique(ts_data()$LocationName), ylab = "Parameter value") %>% # dySeries("V1", # label = sprintf("%s (%s)", # unique(ts_data()$ParameterName), # unique(ts_data()$ParameterUnit))) %>% dyLegend(show = "always", hideOnMouseOut = FALSE, width = 500) %>% dyRangeSelector(dateWindow = params$myDateRange) %>% dyOptions(useDataTimezone = TRUE, drawPoints = TRUE, pointSize = 2) if(params$add_thresholds == TRUE) { aquanes.report::dygraph_add_limits(dygraph = dy2, limits_df = thresholds[thresholds$ParameterName %in% params$para2,]) } else { dy2 } }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.