if (interactive()) {
library(shiny)
library(standby)
ui <- fluidPage(
useMicroTip(), # include dependencies
br(), br(), br(), br(),
actionButton(inputId = "btn",
label = "MicroTip Demo")
)
server <- function(input, output, session) {
# display tooltip
microTip(id = "btn",
tip = "Hey there! This is a micro tip!",
position = "bottom-right")
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab