# NOT RUN {
library(shiny)
ui <- fluidPage(
use_butler(),
br(),
actionButton("show", "show butler"),
actionButton("hide", "hide butler")
)
server <- function(input, output){
observeEvent(input$show,{
show_butler()
})
observeEvent(input$hide,{
hide_butler()
})
}
if(interactive()) shinyApp(ui, server)
# }
Run the code above in your browser using DataLab