# NOT RUN {
if (interactive()) {
ui <- fluidPage(
actionBttn(inputId = "id1", label = "Go!", style = "unite")
)
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataLab