我正在学习(主要是为了好玩)闪闪发光,并且正在构建带有一些表格数据和ggplot图表的仪表板。
我想知道是否有可能为应用程序用户实现某种交互式帮助,即用户将鼠标指针放在某个图形上,它将弹出该图形的简短描述。当用户将鼠标指针移开时,简短描述应消失。
我刚刚发现了helpText()
函数,但是显然与我想要实现的功能相去甚远。
我可能会补充说,我不了解任何JS,而且我了解html和css的基础知识(非常基础)。
谢谢
答案 0 :(得分:2)
有一个很棒的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)