Parse CWL content type

parse_type(x)

Arguments

x

CWL object

Value

CWL content type (Workflow or CommandLineTool)

Examples

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

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