Is this a CWL workflow?
is_workflow(x)
| 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] TRUEsystem.file("cwl/sbg/tool/bwa-mem.json", package = "tidycwl") %>% read_cwl(format = "json") %>% is_workflow()#> [1] FALSE