Skip to contents

Create a visual table from a summarise_population_characteristics result.

Usage

tablePopulationCharacteristics(result, type = "gt")

Arguments

result

Output from summarisePopulationCharacteristics().

type

Type of formatting output table, either "gt" or "flextable".

Value

A gt or flextable object with the summarised data.

Examples

# \donttest{
cdm <- mockOmopSketch()

summarisedPopulation <- summarisePopulationCharacteristics(
  cdm = cdm,
  studyPeriod = c("2010-01-01", NA),
  sex = TRUE,
  ageGroup = list("<=60" = c(0, 60), ">60" = c(61, Inf))
)
#> ! 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
#> Creating initial cohort
#>  Cohort trimmed
#>  adding demographics columns
#>  summarising data
#>  summariseCharacteristics finished!
#> ! The following column type were changed:
#>  variable_name: from integer to character

summarisedPopulation |>
  suppress(minCellCount = 5) |>
  tablePopulationCharacteristics()
Variable name Variable level Estimate name Database name
mockOmopSketch
overall; overall
Number records - N 58
Number subjects - N 58
Cohort start date - Median [Q25 - Q75] 2010-05-14 [2010-01-01 - 2015-05-20]
Range 2010-01-01 to 2019-10-02
Cohort end date - Median [Q25 - Q75] 2016-11-18 [2014-04-25 - 2019-05-04]
Range 2010-02-28 to 2019-10-30
Age at start - Median [Q25 - Q75] 30 [19 - 44]
Mean (SD) 32.38 (14.10)
Range 9 to 65
Age at end - Median [Q25 - Q75] 36 [25 - 48]
Range 13 to 65
Sex Female N% 29 (50.00)
Male N% 29 (50.00)
Prior observation - Median [Q25 - Q75] 0 [0 - 3,224]
Mean (SD) 2,355.78 (3,656.56)
Range 0 to 16,054
Future observation - Median [Q25 - Q75] 1,156 [477 - 2,350]
Mean (SD) 1,409.57 (1,108.12)
Range 4 to 3,577
<=60; overall
Number records - N 57
Number subjects - N 57
Cohort start date - Median [Q25 - Q75] 2010-05-03 [2010-01-01 - 2015-01-28]
Range 2010-01-01 to 2019-10-02
Cohort end date - Median [Q25 - Q75] 2016-11-18 [2014-03-19 - 2019-05-04]
Range 2010-02-28 to 2019-10-30
Age at start - Median [Q25 - Q75] 30 [19 - 41]
Mean (SD) 31.81 (13.53)
Range 9 to 59
Age at end - Median [Q25 - Q75] 35 [25 - 48]
Range 13 to 63
Sex Female N% 28 (49.12)
Male N% 29 (50.88)
Prior observation - Median [Q25 - Q75] 0 [0 - 3,285]
Mean (SD) 2,397.11 (3,675.37)
Range 0 to 16,054
Future observation - Median [Q25 - Q75] 1,175 [521 - 2,364]
Mean (SD) 1,431.67 (1,105.00)
Range 4 to 3,577
>60; overall
Number records - N <5
Number subjects - N <5
Cohort start date - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Cohort end date - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Age at start - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
Age at end - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Sex Female N% <5 (<5)
Prior observation - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
Future observation - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
overall; Female
Number records - N 29
Number subjects - N 29
Cohort start date - Median [Q25 - Q75] 2010-01-01 [2010-01-01 - 2015-08-10]
Range 2010-01-01 to 2019-10-02
Cohort end date - Median [Q25 - Q75] 2017-06-27 [2013-11-12 - 2019-06-24]
Range 2011-02-01 to 2019-10-15
Age at start - Median [Q25 - Q75] 35 [19 - 45]
Mean (SD) 32.59 (14.74)
Range 11 to 65
Age at end - Median [Q25 - Q75] 38 [23 - 48]
Range 14 to 65
Sex Female N% 29 (100.00)
Prior observation - Median [Q25 - Q75] 105 [0 - 3,042]
Mean (SD) 2,743.90 (4,233.24)
Range 0 to 16,054
Future observation - Median [Q25 - Q75] 1,313 [396 - 2,378]
Mean (SD) 1,449.83 (1,149.32)
Range 4 to 3,491
overall; Male
Number records - N 29
Number subjects - N 29
Cohort start date - Median [Q25 - Q75] 2011-07-16 [2010-01-01 - 2015-01-28]
Range 2010-01-01 to 2019-07-13
Cohort end date - Median [Q25 - Q75] 2016-09-21 [2014-12-26 - 2018-10-10]
Range 2010-02-28 to 2019-10-30
Age at start - Median [Q25 - Q75] 30 [23 - 41]
Mean (SD) 32.17 (13.69)
Range 9 to 59
Age at end - Median [Q25 - Q75] 33 [25 - 47]
Range 13 to 61
Sex Male N% 29 (100.00)
Prior observation - Median [Q25 - Q75] 0 [0 - 3,285]
Mean (SD) 1,967.66 (2,997.67)
Range 0 to 10,872
Future observation - Median [Q25 - Q75] 1,090 [660 - 2,308]
Mean (SD) 1,369.31 (1,084.17)
Range 58 to 3,577
<=60; Female
Number records - N 28
Number subjects - N 28
Cohort start date - Median [Q25 - Q75] 2010-01-01 [2010-01-01 - 2014-05-10]
Range 2010-01-01 to 2019-10-02
Cohort end date - Median [Q25 - Q75] 2017-10-25 [2013-10-18 - 2019-06-29]
Range 2011-02-01 to 2019-10-15
Age at start - Median [Q25 - Q75] 32 [19 - 41]
Mean (SD) 31.43 (13.61)
Range 11 to 57
Age at end - Median [Q25 - Q75] 38 [23 - 48]
Range 14 to 63
Sex Female N% 28 (100.00)
Prior observation - Median [Q25 - Q75] 160 [0 - 3,678]
Mean (SD) 2,841.89 (4,277.29)
Range 0 to 16,054
Future observation - Median [Q25 - Q75] 1,362 [490 - 2,440]
Mean (SD) 1,496.25 (1,142.39)
Range 4 to 3,491
<=60; Male
Number records - N 29
Number subjects - N 29
Cohort start date - Median [Q25 - Q75] 2011-07-16 [2010-01-01 - 2015-01-28]
Range 2010-01-01 to 2019-07-13
Cohort end date - Median [Q25 - Q75] 2016-09-21 [2014-12-26 - 2018-10-10]
Range 2010-02-28 to 2019-10-30
Age at start - Median [Q25 - Q75] 30 [23 - 41]
Mean (SD) 32.17 (13.69)
Range 9 to 59
Age at end - Median [Q25 - Q75] 33 [25 - 47]
Range 13 to 61
Sex Male N% 29 (100.00)
Prior observation - Median [Q25 - Q75] 0 [0 - 3,285]
Mean (SD) 1,967.66 (2,997.67)
Range 0 to 10,872
Future observation - Median [Q25 - Q75] 1,090 [660 - 2,308]
Mean (SD) 1,369.31 (1,084.17)
Range 58 to 3,577
>60; Female
Number records - N <5
Number subjects - N <5
Cohort start date - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Cohort end date - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Age at start - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
Age at end - Median [Q25 - Q75] <5 [<5 - <5]
Range <5 to <5
Sex Female N% <5 (<5)
Prior observation - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
Future observation - Median [Q25 - Q75] <5 [<5 - <5]
Mean (SD) <5 (<5)
Range <5 to <5
PatientProfiles::mockDisconnect(cdm = cdm) # }