Is this a CWL workflow?
is_workflow(x)CWL object
Logical. TRUE if it is a CWL workflow
(instead of a command line tool), FALSE if not.
system.file("cwl/sbg/workflow/gatk4-wgs.json", package = "tidycwl") %>%
read_cwl(format = "json") %>%
is_workflow()
#> [1] TRUE
system.file("cwl/sbg/tool/bwa-mem.json", package = "tidycwl") %>%
read_cwl(format = "json") %>%
is_workflow()
#> [1] FALSE