有一个很棒的rintrojs 包可以满足你的需求,这里是一个小例子:
library(rintrojs)
library(shiny)
ui <- fluidPage(
introjsUI(),
actionButton("help", "About this Page"),
sidebarPanel(
introBox(sliderInput("Slider", "Slider",min = 1, max = 10, value = 5,step = 1),data.step = 1,data.intro = "This is slider its doing xyz"),
introBox(actionButton("Button","Button"),data.step = 2,data.intro = "This is Button its doing other things"))
)
server <- function(input, output, session){
observeEvent(input$help,introjs(session, options = list("showBullets"="false", "showProgress"="true", "showStepNumbers"="false","nextLabel"="Next","prevLabel"="Prev","skipLabel"="Skip")))
}
shinyApp(ui, server)