diff --git a/R/plot.GRiwrm.R b/R/plot.GRiwrm.R index ae3155de9a92d587f5d2ca092e16a40a6978171f..939829f50a8237ac73f4eb4ea6e4596e4586f331 100644 --- a/R/plot.GRiwrm.R +++ b/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)) { diff --git a/man/mermaid.Rd b/man/mermaid.Rd index c10eefe6d8d611112c6f9cd4f19aa4263105aeef..433e6a6ded3732ae8f1ab5f77fb9d16803784abe 100644 --- a/man/mermaid.Rd +++ b/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) } +}