From 32b0695884e4b16e337da51aa58b9723af8856c5 Mon Sep 17 00:00:00 2001 From: wlandau-lilly Date: Mon, 18 Nov 2019 11:04:50 -0500 Subject: [PATCH] Fix bugs in suppressed examples --- R/sankey_drake_graph.R | 4 ++-- R/vis_drake_graph.R | 4 ++-- man/render_drake_graph.Rd | 2 +- man/render_sankey_drake_graph.Rd | 2 +- man/sankey_drake_graph.Rd | 2 +- man/vis_drake_graph.Rd | 2 +- 6 files changed, 8 insertions(+), 8 deletions(-) diff --git a/R/sankey_drake_graph.R b/R/sankey_drake_graph.R index 1da200203..d346f5fd7 100644 --- a/R/sankey_drake_graph.R +++ b/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) #' } #' } #' } diff --git a/R/vis_drake_graph.R b/R/vis_drake_graph.R index bdead9723..17f33dca8 100644 --- a/R/vis_drake_graph.R +++ b/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) #' } #' } #' }) diff --git a/man/render_drake_graph.Rd b/man/render_drake_graph.Rd index 6573b08b5..bc134322f 100644 --- a/man/render_drake_graph.Rd +++ b/man/render_drake_graph.Rd @@ -100,7 +100,7 @@ graph <- drake_graph_info(config) # 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) } } }) diff --git a/man/render_sankey_drake_graph.Rd b/man/render_sankey_drake_graph.Rd index 45ee1b776..9fe548885 100644 --- a/man/render_sankey_drake_graph.Rd +++ b/man/render_sankey_drake_graph.Rd @@ -67,7 +67,7 @@ graph <- drake_graph_info(config) # 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) } } } diff --git a/man/sankey_drake_graph.Rd b/man/sankey_drake_graph.Rd index 3fca7dc5d..e8ea6f639 100644 --- a/man/sankey_drake_graph.Rd +++ b/man/sankey_drake_graph.Rd @@ -137,7 +137,7 @@ config <- drake_config(my_plan) 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. diff --git a/man/vis_drake_graph.Rd b/man/vis_drake_graph.Rd index 6f07bc577..6136f46fe 100644 --- a/man/vis_drake_graph.Rd +++ b/man/vis_drake_graph.Rd @@ -182,7 +182,7 @@ load_mtcars_example() # Get the code with drake_example("mtcars"). 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.