Create a gt table from a summarised omop_table.

Usage

plotInObservation(result, facet = NULL, colour = NULL)

Arguments

result: A summarised_result object (output of summariseInObservation).
facet: Columns to face by. Formula format can be provided. See possible columns to face by with: visOmopResults::tidyColumns().
colour: Columns to colour by. See possible columns to colour by with: visOmopResults::tidyColumns().

Value

A ggplot showing the table counts

Examples


if (FALSE) { # \dontrun{
library(OmopSketch)
library(dplyr)

cdm <- mockOmopSketch()

result <- summariseInObservation(cdm$observation_period,
                    unit = "month",
                    unitInterval = 6,
                    output = c("person-days","records"),
                    ageGroup = list("<=60" = c(0,60), ">60" = c(61, Inf)),
                    sex = TRUE)

plotInObservation(result)

PatientProfiles::mockDisconnect(cdm)
} # }