library(dplyr)
library(omopgenerics)
x <- tibble(
"result_id" = 1L,
"cdm_name" = "eunomia",
"group_name" = c("cohort_name", "age_group &&& cohort_name", "age_group"),
"group_level" = c("my_cohort", ">40 &&& second_cohort", "<40"),
"strata_name" = "sex",
"strata_level" = "Female",
"variable_name" = "number subjects",
"variable_level" = NA_character_,
"estimate_name" = "count",
"estimate_type" = "integer",
"estimate_value" = c("100", "44", "14"),
"additional_name" = "overall",
"additional_level" = "overall"
) |>
newSummarisedResult()
x |>
filterGroup(cohort_name == "second_cohort")
Run the code above in your browser using DataLab