## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----------------------------------------------------------------------------- library(OmopViewer) library(dplyr, warn.conflicts = FALSE) library(omopgenerics, warn.conflicts = FALSE) ## ----------------------------------------------------------------------------- result <- omopViewerResults |> filterSettings(result_type == "incidence") ## ----------------------------------------------------------------------------- result |> settings() |> glimpse() ## ----------------------------------------------------------------------------- getPanel("incidence") ## ----------------------------------------------------------------------------- panelDetailsFromResult(result = result) ## ----------------------------------------------------------------------------- panelDetails <- list( incidence_female = getPanel("incidence"), incidence_male = getPanel("incidence") ) ## ----------------------------------------------------------------------------- panelDetails$incidence_female$data <- list(denominator_sex = "Female") panelDetails$incidence_male$data <- list(denominator_sex = "Male") ## ----------------------------------------------------------------------------- panelDetails$incidence_female$title <- "Incidence in Female" panelDetails$incidence_male$title <- "Incidence in Male" ## ----------------------------------------------------------------------------- panelDetails$incidence_female$icon <- "venus" panelDetails$incidence_male$icon <- "mars" ## ----eval = FALSE------------------------------------------------------------- # exportStaticApp(result = result, panelDetails = panelDetails, directory = tempdir()) ## ----------------------------------------------------------------------------- panelDetails$incidence_female$content$tidy <- NULL panelDetails$incidence_male$content$plot <- NULL ## ----------------------------------------------------------------------------- panelDetails$incidence_female$exclude_filters <- c(panelDetails$incidence_female$exclude_filters, "denominator_sex") panelDetails$incidence_male$exclude_filters <- c(panelDetails$incidence_male$exclude_filters, "denominator_sex") ## ----eval = FALSE------------------------------------------------------------- # exportStaticApp(result = result, panelDetails = panelDetails, directory = tempdir())