fix(mermaid): error in mermaid example

Moreover dontrun directive is better used to protect against network failure during check

R/plot.GRiwrm.R

@@ -183,9 +183,9 @@ getNodeClass <- function(id, griwrm) {
 #' @export
 #'
 #' @examples
-#' \dontrun{
 #' diagram <- "flowchart LR\n  A --> B"
 #' mermaid_gen_link(diagram)
+#' \dontrun{
 #' f <- mermaid(diagram)
 #' f
 #'
@@ -308,10 +308,12 @@ plot_png <- function(path, add = FALSE) {
 #' @rdname mermaid
 #'
 #' @examples
+#' \dontrun{
 #' s <- "flowchart LR
-#' A -> B"
+#' A --> B"
 #' class(s) <- c("mermaid", class(s))
 #' plot(s)
+#' }
 plot.mermaid <- function(x, add = FALSE, ...) {
   file_mmd <- mermaid(x, ...)
   if (is.na(file_mmd)) {

man/mermaid.Rd

@@ -69,9 +69,9 @@ If the generation failed (due to internet connection failure or syntax error
 in mermaid script), the functions raises no error (see \code{mermaid} returned value).
 }
 \examples{
-\dontrun{
 diagram <- "flowchart LR\n  A --> B"
 mermaid_gen_link(diagram)
+\dontrun{
 f <- mermaid(diagram)
 f
 
@@ -82,8 +82,10 @@ knitr::include_graphics(mermaid(diagram))
 unlink(f)
 }
 
+\dontrun{
 s <- "flowchart LR
-A -> B"
+A --> B"
 class(s) <- c("mermaid", class(s))
 plot(s)
 }
+}