style(.DiagramGR): add missing whitespaces

R/Utils.R

@@ -805,7 +805,7 @@ if (getRversion() >= "2.15.1") {
   }
 
   # Actual exchange Q9 exp.
-  if (HydroModel%in% c("GR6J")) {
+  if (HydroModel %in% c("GR6J")) {
     arrows(x0 = xy_min_EXPO[1]+base_res[1], x1 = 1025,
            y0 = xy_min_EXPO[2], y1 = xy_min_EXPO[2],
            length = 0.075, angle = 20, code = 3)
@@ -815,7 +815,7 @@ if (getRversion() >= "2.15.1") {
            cex = cex_tri(OutputsModel$Exch[i_pdt], fact = fact_triangle, max = cex_max_poly))
   }
 
-  if (HydroModel%in% c("GR4J", "GR6J")) {
+  if (HydroModel %in% c("GR4J", "GR6J")) {
 
     # --------------------------------------------------------------------------------
     # UH 1 & 2 PLOT