Split Result into Two Tabs in OmopViewer

We first define an IncidencePrevalence result in res from omopViewerResults:

res <- omopViewerResults |> filterSettings(result_type == "incidence")

Now we can define the panel details ourselves to display two results in two separate tabs, using panelDetailsFromResult:

res1 <- res |> filterSettings(result_id == 19)
res2 <- res |> filterSettings(result_id == 20)
exportStaticApp(res, panelDetails = list("incidence1" = panelDetailsFromResult(res1)$incidence,
                                         "incidence2" = panelDetailsFromResult(res2)$incidence),
                directory = tempdir())

## ℹ Processing data
## ✔ Data processed: 2 panels idenfied: `incidence1` and `incidence2`.
## ℹ Creating shiny from provided data
## ✔ Shiny created in: /tmp/RtmpMmi7Y2/shiny

Details in the tabs can also be modified, example of changing the tab titles:

tab1 <- panelDetailsFromResult(res1)$incidence
tab1$title <- "incidence title 1"
tab2 <- panelDetailsFromResult(res2)$incidence
tab2$title <- "incidence title 2"
exportStaticApp(res, panelDetails = list("incidence1" = tab1,
                                         "incidence2" = tab2),
                directory = tempdir())

## ℹ Processing data
## ✔ Data processed: 2 panels idenfied: `incidence1` and `incidence2`.
## ℹ shiny folder will be overwritten.
## ✔ Prior shiny folder deleted.
## ℹ Creating shiny from provided data
## ✔ Shiny created in: /tmp/RtmpMmi7Y2/shiny