2017-06-13 3 views
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」にボタンをリンクする必要はありません。ヒントとソリューションは感謝して受け入れられました!

答えて

関連する問題