library(magrittr)
library(cohortBuilder)
library(shinyCohortBuilder)
iris_source <- set_source(tblist(iris = iris)) %>%
autofilter()
iris_cohort <- cohort(iris_source)
sum_up(iris_cohort)
if (interactive()) {
library(shiny)
ui <- fluidPage(
cb_ui("mycoh")
)
server <- function(input, output, session) {
cb_server("mycoh", cohort = iris_cohort)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab