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);
-      }
-    }"