if (interactive()) {
library(shiny)
library(shinyNextUI)
library(shiny.react)
ui <- nextui_page(
theme_switcher(),
card(card_body("My card"))
)
server <- function(input, output, session) {
observe({
print(input$theme)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab