Resolve "Add node of type "direct flow" in order to inject or withdraw flows into the model"

Closes #5 (closed)

R/DiagramGriwrm.R

@@ -4,7 +4,11 @@
 #' @param display if `TRUE` displays the diagram with `DiagrammeR::mermaid`, return the mermaid code otherwise.
 #' @param orientation Orientation of the graph. "LR" by default.
 #'
+#' @details This function only works inside RStudio because the HTMLwidget produced by DiagrammeR
+#' is not handled on some platforms
+#'
 #' @return Mermaid code of the diagram id display is `FALSE`.
+#'
 #' @export
 #'
 #' @examples
@@ -14,6 +18,9 @@
 #' DiagrammeR::mermaid(DiagramGriwrm(griwrm, display = FALSE), width = "100%", height = "100%")
 #'
 DiagramGriwrm <- function(griwrm, display = TRUE, orientation = "LR") {
+  if(Sys.getenv("RSTUDIO") != "1") {
+    return()
+  }
   g2 <- griwrm[!is.na(griwrm$down),]
   nodes <- paste(
     g2$id,

vignettes/V05_Influenced_flow_caibration.Rmd

----
-title: "V05_Influenced_flow_caibration"
-author: "David Dorchies"
-date: "03/08/2020"
-output: html_document
----
-
-```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = TRUE)
-```
-
-## Test on Marne river
-
-
-```{r cars}
-summary(cars)
-```
-
-## Including Plots
-
-You can also embed plots, for example:
-
-```{r pressure, echo=FALSE}
-plot(pressure)
-```
-
-Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.

.gitlab-ci.yml

@@ -21,7 +21,8 @@ update_packages:
     - mkdir -p R_LIBS
     - Rscript -e 'if(!dir.exists("R_LIBS/remotes")) install.packages("remotes", lib = "R_LIBS")'
     - apt-get update && apt-get -y install libxml2-dev
-    - Rscript -e 'remotes::update_packages(c("dplyr", "rmarkdown", "readr", "lubridate", "zoo", "roxygen2", "DiagrammeR", "webshot"), lib = "R_LIBS")'
+    - Rscript -e 'remove.packages("webshot", lib = "R_LIBS")'
+    - Rscript -e 'remotes::update_packages(c("dplyr", "rmarkdown", "readr", "lubridate", "zoo", "roxygen2", "DiagrammeR"), lib = "R_LIBS")'
     - Rscript -e 'remotes::install_gitlab("HYCAR-Hydro/airgr@sd", host = "gitlab.irstea.fr", lib = "R_LIBS")'
 
 build: