I assume there is a typo in the following code snippet. It says "# Setting the second tab to be of type point", but I believe you meant, "# Setting the second tab to be of type hist", or am I wrong? :)
app_ui <- function() {
[...]
tagList(
fluidRow(
# Setting the first tab to be of type point
id = "geom_point",
mod_dataviz_ui(
"dataviz_ui_1",
type = "point"
)
),
fluidRow(
# Setting the second tab to be of type point
id = "geom_hist",
mod_dataviz_ui(
"dataviz_ui_2",
type = "hist"
)
)
)
}