Get class from CWL JSON file

Get class from CWL JSON file

get_cwl_class(input)

Arguments

input	cwl json file path

Value

character for cwl class "Workflow" or "CommandLineTool"

Examples

tool.in <- system.file("extdata/app", "tool_unpack_fastq.json", package = "sevenbridges")
flow.in <- system.file("extdata/app", "flow_star.json", package = "sevenbridges")
get_cwl_class(tool.in)
#> [1] "CommandLineTool"
is_commandlinetool(tool.in)
#> [1] TRUE
is_workflow(tool.in)
#> [1] FALSE
get_cwl_class(flow.in)
#> [1] "Workflow"
is_commandlinetool(flow.in)
#> [1] FALSE
is_workflow(flow.in)
#> [1] TRUE