label widths in tar_visnetwork() and tar_mermaid(), descriptions in t…

…ar_mermaid()

R/class_mermaid.R

@@ -2,13 +2,15 @@ mermaid_init <- function(
   network,
   label = NULL,
   label_break = "<br>",
+  label_width = 60L,
   show_legend = TRUE,
   show_color = TRUE
 ) {
   mermaid_new(
     network = network,
     label = label,
     label_break = label_break,
+    label_width = label_width,
     show_legend = show_legend,
     show_color = show_color
   )
@@ -18,13 +20,15 @@ mermaid_new <- function(
   network = NULL,
   label = NULL,
   label_break = NULL,
+  label_width = NULL,
   show_legend = NULL,
   show_color = NULL
 ) {
   mermaid_class$new(
     network = network,
     label = label,
     label_break = label_break,
+    label_width = label_width,
     show_legend = show_legend,
     show_color = show_color
   )
@@ -43,13 +47,15 @@ mermaid_class <- R6::R6Class(
       network = NULL,
       label = NULL,
       label_break = NULL,
+      label_width = NULL,
       show_legend = NULL,
       show_color = NULL
     ) {
       super$initialize(
         network = network,
         label = label,
-        label_break = label_break
+        label_break = label_break,
+        label_width = label_width
       )
       self$show_legend <- show_legend
       self$show_color <- show_color

R/tar_mermaid.R

@@ -29,7 +29,7 @@
 #'   list(
 #'     tar_target(y1, 1 + 1),
 #'     tar_target(y2, 1 + 1),
-#'     tar_target(z, y1 + y2)
+#'     tar_target(z, y1 + y2, description = "sum of two other sums")
 #'   )
 #' })
 #' # Copy the text into a mermaid.js online editor
@@ -45,7 +45,8 @@ tar_mermaid <- function(
   allow = NULL,
   exclude = ".Random.seed",
   outdated = TRUE,
-  label = NULL,
+  label = targets::tar_config_get("label"),
+  label_width = targets::tar_config_get("label_width"),
   legend = TRUE,
   color = TRUE,
   reporter = targets::tar_config_get("reporter_outdated"),
@@ -60,7 +61,10 @@ tar_mermaid <- function(
   force(envir)
   tar_assert_lgl(targets_only, "targets_only must be logical.")
   tar_assert_lgl(outdated, "outdated in tar_mermaid() must be logical.")
-  tar_assert_in(label, c("time", "size", "branches"))
+  tar_assert_in(label, c("description", "time", "size", "branches"))
+  tar_assert_dbl(label_width)
+  tar_assert_scalar(label_width)
+  tar_assert_none_na(label_width)
   tar_assert_lgl(legend)
   tar_assert_lgl(color)
   tar_assert_scalar(legend)
@@ -81,6 +85,7 @@ tar_mermaid <- function(
     exclude_quosure = rlang::enquo(exclude),
     outdated = outdated,
     label = label,
+    label_width = label_width,
     legend = legend,
     color = color,
     reporter = reporter,
@@ -108,6 +113,7 @@ tar_mermaid_inner <- function(
   exclude_quosure,
   outdated,
   label,
+  label_width,
   legend,
   color,
   reporter,
@@ -130,6 +136,7 @@ tar_mermaid_inner <- function(
   visual <- mermaid_init(
     network = network,
     label = label,
+    label_width = label_width,
     show_legend = legend,
     show_color = color
   )