Print a concept set expression

Print a concept set expression

Usage

# S3 method for class 'conceptSetExpression'
print(x, ...)

Arguments

x

A concept set expression

...

Included for compatibility with generic. Not used.

Value

Invisibly returns the input

Examples

asthma_cs <- list(
  "asthma_narrow" = dplyr::tibble(
    "concept_id" = 1,
    "excluded" = FALSE,
    "descendants" = TRUE,
    "mapped" = FALSE
  ),
  "asthma_broad" = dplyr::tibble(
    "concept_id" = c(1, 2),
    "excluded" = FALSE,
    "descendants" = TRUE,
    "mapped" = FALSE
  )
)
asthma_cs <- newConceptSetExpression(asthma_cs)
print(asthma_cs)
#> $asthma_broad
#> # A tibble: 2 × 4
#>   concept_id excluded descendants mapped
#>        <int> <lgl>    <lgl>       <lgl> 
#> 1          1 FALSE    TRUE        FALSE 
#> 2          2 FALSE    TRUE        FALSE 
#> 
#> $asthma_narrow
#> # A tibble: 1 × 4
#>   concept_id excluded descendants mapped
#>        <int> <lgl>    <lgl>       <lgl> 
#> 1          1 FALSE    TRUE        FALSE 
#> 
#> attr(,"class")
#> [1] "concept_set_expression" "list"