Fix bugs in suppressed examples

R/sankey_drake_graph.R

@@ -23,7 +23,7 @@
 #' if (requireNamespace("networkD3", quietly = TRUE)) {
 #' if (requireNamespace("visNetwork", quietly = TRUE)) {
 #' # Plot the network graph representation of the workflow.
-#' sankey_drake_graph(config, width = '100%')
+#' sankey_drake_graph(config)
 #' # Show the legend separately.
 #' visNetwork::visNetwork(nodes = drake::legend_nodes())
 #' make(my_plan) # Run the project, build the targets.
@@ -135,7 +135,7 @@ sankey_drake_graph <- function(
 #' # You can pass the data frames right to render_sankey_drake_graph()
 #' # (as in sankey_drake_graph()) or you can create
 #' # your own custom visNewtork graph.
-#' render_sankey_drake_graph(graph, width = '100%')
+#' render_sankey_drake_graph(graph)
 #' }
 #' }
 #' }

R/vis_drake_graph.R

@@ -18,7 +18,7 @@
 #' config <- drake_config(my_plan)
 #' # Plot the network graph representation of the workflow.
 #' if (requireNamespace("visNetwork", quietly = TRUE)) {
-#' vis_drake_graph(config, width = '100%') # The width is passed to visNetwork
+#' vis_drake_graph(config)
 #' make(my_plan) # Run the project, build the targets.
 #' vis_drake_graph(config) # The red nodes from before are now green.
 #' # Plot a subgraph of the workflow.
@@ -180,7 +180,7 @@ vis_drake_graph <- function(
 #' # You can pass the data frames right to render_drake_graph()
 #' # (as in vis_drake_graph()) or you can create
 #' # your own custom visNewtork graph.
-#' render_drake_graph(graph, width = '100%') # Width is passed to visNetwork.
+#' render_drake_graph(graph)
 #' }
 #' }
 #' })