Parse CWL content type
parse_type(x)
CWL object
CWL content type (Workflow or CommandLineTool)
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"