# !formatR
library(shiny)
app <- shinyApp(
ui = fluidPage(taggleOutput("taggle")),
server = function(input, output) {
taggle <- lineupBuilder(iris) |> buildTaggle()
output$taggle <- renderTaggle(taggle)
}
)
# \donttest{
if (interactive()) app
# }
Run the code above in your browser using DataLab