# 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)
## ------------------------------------------------
## Method `Butler$new`
## ------------------------------------------------
# }
# NOT RUN {
Butler$new()
# }
# NOT RUN {
## ------------------------------------------------
## Method `Butler$show`
## ------------------------------------------------
# }
# NOT RUN {
Butler$new()$show()
# }
# NOT RUN {
## ------------------------------------------------
## Method `Butler$hide`
## ------------------------------------------------
# }
# NOT RUN {
Butler$new()$show()$hide()
# }
Run the code above in your browser using DataLab