Is this a CWL workflow?

is_workflow(x)

Arguments

x

CWL object

Value

Logical. TRUE if it is a CWL workflow (instead of a command line tool), FALSE if not.

Examples

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