Add cdm name

Add cdm name

Usage

addCdmName(table, cdm = omopgenerics::cdmReference(table))

Arguments

table

Table in the cdm

cdm

A cdm reference object

Value

Table with an extra column with the cdm names

Examples

# \donttest{
library(PatientProfiles)

cdm <- mockPatientProfiles()
cdm$cohort1 |>
  addCdmName()
#> # Source:   SQL [?? x 5]
#> # Database: DuckDB v1.2.0 [unknown@Linux 6.8.0-1021-azure:R 4.4.2/:memory:]
#>    cohort_definition_id subject_id cohort_start_date cohort_end_date cdm_name
#>                   <int>      <int> <date>            <date>          <chr>   
#>  1                    2          7 1945-07-14        1952-08-18      PP_MOCK 
#>  2                    2          5 2012-10-21        2017-04-09      PP_MOCK 
#>  3                    1          6 1972-12-10        1976-07-23      PP_MOCK 
#>  4                    1          8 1909-11-01        1927-03-14      PP_MOCK 
#>  5                    2          4 1979-08-02        1984-03-21      PP_MOCK 
#>  6                    1          2 1928-12-01        1930-08-10      PP_MOCK 
#>  7                    1          1 1982-05-05        1996-02-13      PP_MOCK 
#>  8                    1          3 1976-07-26        1983-12-24      PP_MOCK 
#>  9                    3          9 1920-06-03        1933-12-13      PP_MOCK 
#> 10                    1         10 1975-01-20        1975-03-01      PP_MOCK 
# }