filter <- teal_slices(
teal_slice(dataname = "iris", varname = "Species", id = "species"),
teal_slice(dataname = "iris", varname = "Sepal.Length", id = "sepal_length"),
teal_slice(
dataname = "iris", id = "long_petals", title = "Long petals", expr = "Petal.Length > 5"
),
teal_slice(dataname = "mtcars", varname = "mpg", id = "mtcars_mpg"),
mapping = list(
module1 = c("species", "sepal_length"),
module2 = c("mtcars_mpg"),
global_filters = "long_petals"
)
)
app <- init(
data = teal_data(iris = iris, mtcars = mtcars),
modules = list(
module("module1"),
module("module2")
),
filter = filter
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
Run the code above in your browser using DataLab