Is this a CWL command line tool?

Is this a CWL command line tool?

is_tool(x)

Arguments

x	CWL object

Value

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

Examples

system.file("cwl/sbg/tool/bwa-mem.json", package = "tidycwl") %>%
  read_cwl(format = "json") %>%
  is_tool()
#> [1] TRUE

system.file("cwl/sbg/workflow/gatk4-wgs.json", package = "tidycwl") %>%
  read_cwl(format = "json") %>%
  is_tool()
#> [1] FALSE