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