Create a gt table from a summarised population characteristics table.
Source:R/tablePopulationCharacteristics.R
tablePopulationCharacteristics.RdCreate a gt table from a summarised population characteristics table.
Examples
# \donttest{
library(dplyr)
library(OmopSketch)
# Connect to a mock database
cdm <- mockOmopSketch()
# Run summarise clinical tables
summarisedPopulation <- summarisePopulationCharacteristics(
cdm = cdm,
studyPeriod = c("2010-01-01",NA),
sex = TRUE,
ageGroup = list("<=60" = c(0, 60), ">60" = c(61, Inf))
)
#> Warning: ! 1 casted column in og_011_1726698594 (cohort_set) as do not match expected
#> column type:
#> • `cohort_definition_id` from numeric to integer
#> Warning: ! 1 column in og_011_1726698594 do not match expected column type:
#> • `cohort_definition_id` is numeric but expected integer
#> ! cohort columns will be reordered to match the expected order:
#> cohort_definition_id, subject_id, cohort_start_date, and cohort_end_date.
#> ℹ Building new trimmed cohort
#> Warning: ! 1 column in tmp_006_og_013_1726698595 do not match expected column type:
#> • `cohort_definition_id` is numeric but expected integer
#> Creating initial cohort
#> ! cohort columns will be reordered to match the expected order:
#> cohort_definition_id, subject_id, cohort_start_date, and cohort_end_date.
#> ! cohort columns will be reordered to match the expected order:
#> cohort_definition_id, subject_id, cohort_start_date, and cohort_end_date.
#> ✔ Cohort trimmed
#> ℹ adding demographics columns
#> ℹ summarising data
#> ✔ summariseCharacteristics finished!
#> ! The following column type were changed:
#> • variable_name: from integer to character
tablePopulationCharacteristics(summarisedPopulation)
#> ! Results have not been suppressed.
overall; overall
<=60; overall
>60; overall
overall; Female
overall; Male
<=60; Female
<=60; Male
>60; Female
>60; Male
PatientProfiles::mockDisconnect(cdm = cdm)
# }