0
rintrojsを使用してShinyアプリの1ページに複数のツアーを開催したいと思います。ここでは、2つのボタンを使用して、私の試みの短い例です:1ページの複数のツアーintiny.js(rintrojs)with Shiny
library(rintrojs)
library(shiny)
ui <- shinyUI(fluidPage(
introjsUI(), # must include in UI
mainPanel(
introBox(
tableOutput("mtcars"),
data.step = 1,
data.intro = "This table is shown when button 1 is pressed"
),
introBox(
actionButton("button1","Intro"),
data.step = 1,
data.intro = "This button is shown when button 2 is pressed"
),
actionButton("button2","Intro2")
)))
server <- shinyServer(function(input, output, session) {
output$mtcars <- renderTable({
head(mtcars)
})
observeEvent(input$button1,
introjs(session))
observeEvent(input$button2,
introjs(session))
})
shinyApp(ui = ui, server = server)
上記のアプローチは、各ツアーのスタートである、とにかく別の「data.step1」にボタンをリンクする必要はありません。ヒントとソリューションは感謝して受け入れられました!