Export the workflow plot as HTML

export_html(g, file, ...)

Arguments

g

Plot rendered by visualize_graph.

file

File to save HTML into.

...

Additional parameters for visSave.

Value

HTML file path

Examples

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)
}