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