Export the workflow plot as HTML
export_html(g, file, ...)
Plot rendered by visualize_graph
.
File to save HTML into.
Additional parameters for visSave
.
HTML file path
file_html <- tempfile(fileext = ".html")
flow <- system.file("cwl/sbg/workflow/gatk4-wgs.json", package = "tidycwl") %>% read_cwl_json()
if (rmarkdown::pandoc_available("1.12.3")) {
get_graph(
flow %>% parse_inputs(),
flow %>% parse_outputs(),
flow %>% parse_steps()
) %>%
visualize_graph() %>%
export_html(file_html)
}