intermediate table leftover after binding cohorts

[edward-burn]

library(omopgenerics)
#> 
#> Attaching package: 'omopgenerics'
#> The following object is masked from 'package:stats':
#> 
#>     filter
library(PatientProfiles)
cdm <- mockPatientProfiles()
attr(cdm$cohort2, "cohort_set") <- attr(cdm$cohort2, "cohort_set") |> 
  dplyr::mutate(cohort_name = paste0(cohort_name, "_2"))
cdm <- bind(cdm$cohort1,
            cdm$cohort2, name = "cohort3")
names(cdm)
#>  [1] "person"                    "observation_period"       
#>  [3] "visit_occurrence"          "condition_occurrence"     
#>  [5] "drug_exposure"             "death"                    
#>  [7] "cohort1"                   "cohort2"                  
#>  [9] "tmp_001_og_001_1730397346" "cohort3"

^{Created on 2024-10-31 with reprex v2.0.2}