Merge pull request #167 from OHDSI/issue_128

support OmopSketch

DESCRIPTION

@@ -52,6 +52,7 @@ Suggests:
     htmlwidgets,
     knitr,
     omock (>= 0.3.0),
+    OmopSketch,
     PatientProfiles,
     plotly,
     rmarkdown,

data-raw/internalData.R

@@ -15,7 +15,9 @@ omopViewerTabs <- dplyr::tribble(
   7L, "orphan_code_use", "Orphan codes", "magnifying-glass-arrow-right", "",
   8L, "cohort_code_use", "Cohort code use", "chart-column", "",
   9L, "code_use", "Code use", "chart-column", "",
-  10L, "achilles_code_use", "Achilles code use", "chart-column", ""
+  10L, "achilles_code_use", "Achilles code use", "chart-column", "",
+  11L, "summarise_observation_period", "Observation period", "eye", "",
+  12L, "summarise_omop_snapshot", "Snapshot", "clipboard-list", ""
 )
 
 omopViewerOutput <- dplyr::tribble(
@@ -44,7 +46,12 @@ omopViewerOutput <- dplyr::tribble(
   # code use
   13L, 9L, "Table code use", "CodelistGenerator::tableCodeUse", "gt",
   # achilles code us
-  14L, 10L, "Table achilles code use", "CodelistGenerator::tableAchillesCodeUse", "gt"
+  14L, 10L, "Table achilles code use", "CodelistGenerator::tableAchillesCodeUse", "gt",
+  # summarise_observation_period
+  15L, 11L, "Table observation period", "OmopSketch::tableObservationPeriod", "gt",
+  16L, 11L, "Plot observation period", "OmopSketch::plotObservationPeriod", "ggplot2",
+  # summarise_omop_snapshot
+  17L, 12L, "Snapshot table", "OmopSketch::tableOmopSnapshot", "gt"
 )
 
 omopViewerOutputArguments <- dplyr::tribble(
@@ -144,7 +151,17 @@ omopViewerOutputArguments <- dplyr::tribble(
   14L, "header", "type", "rank",
   14L, "groupColumn", "type", "rank",
   14L, "hide", "type", "rank",
-  14L, NA, "rank_options", "<grouping>, <variable>"
+  14L, NA, "rank_options", "<grouping>, <variable>",
+  # OmopSketch::tableObservationPeriod
+  # OmopSketch::plotObservationPeriod
+  16L, "variableName", "type", "selector",
+  16L, "variableName", "options", "number subjects, records per person, duration in days, days to next observation period",
+  16L, "plotType", "type", "selector",
+  16L, "plotType", "options", "barplot, boxplot, densityplot",
+  16L, "facet", "type", "selector",
+  16L, "facet", "options", "<grouping>",
+  16L, "facet", "multiple", "TRUE"
+  # OmopSketch::tableOmopSnapshot
 )
 
 omopViewerProj <- c(