diff --git a/DESCRIPTION b/DESCRIPTION index d963afb3754cd1dcdd634f4fca3d86f3d964644e..554de2f90c83960e16801a9f5615ee1d0c27f69b 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGRteaching Type: Package Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Interface) -Version: 0.1.6.9 +Version: 0.1.6.10 Date: 2017-09-28 Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb"))) Depends: airGR (>= 1.0.9.43) diff --git a/inst/ShinyGR/server.R b/inst/ShinyGR/server.R index 207c431bfd0c3d0f83d04c0c43d3cc0a21e48563..3ac706d49a957faf0787a27219a9d6ead86e14de 100644 --- a/inst/ShinyGR/server.R +++ b/inst/ShinyGR/server.R @@ -354,7 +354,8 @@ shinyServer(function(input, output, session) { data.xts <- xts(data[, -1L, drop = FALSE], order.by = data$DatesR) dg4 <- dygraph(data.xts, group = "mod_diag", ylab = "precip. [mm/d]") - dg4 <- dyOptions(dg4, colors = "#428BCA", drawXAxis = FALSE, plotter = barChartPrecip, retainDateWindow = FALSE) + dg4 <- dyOptions(dg4, colors = "#428BCA", drawXAxis = FALSE, retainDateWindow = FALSE) + dg4 <- dyBarSeries(dg4, name = "precip.") dg4 <- dyAxis(dg4, name = "y", valueRange = c(max(data.xts[, "precip."], na.rm = TRUE), -1e-3)) dg4 <- dyEvent(dg4, input$Event, color = "orangered") dg4 <- dyLegend(dg4, show = "onmouseover", width = 225) diff --git a/inst/plugins/barChartPrecip.js b/inst/plugins/barChartPrecip.js deleted file mode 100644 index 0acd3347a738f2f1e895d269315d870c7a3a258d..0000000000000000000000000000000000000000 --- a/inst/plugins/barChartPrecip.js +++ /dev/null @@ -1,20 +0,0 @@ -"function barChartPrecip(e) { - var ctx = e.drawingContext; - var points = e.points; - var y_bottom = - e.dygraph.toDomYCoord(0); - - // This should really be based on the minimum gap - var bar_width = 3.0/3 * (points[1].canvasx - points[0].canvasx); - ctx.fillStyle = e.color; - - // Do the actual plotting. - for (var i = 0; i < points.length; i++) { - var p = points[i]; - var center_x = p.canvasx; // center of the bar - - ctx.fillRect(center_x - bar_width / 2, p.canvasy, - bar_width, y_bottom - p.canvasy); - ctx.strokeRect(center_x - bar_width / 2, p.canvasy, - bar_width, y_bottom - p.canvasy); - } - }"