In KWB-R/aquanes.report: Automated Reporting Tool for Water Suppliers

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 
}
}