Incompatibility with rintrojs

[jtattersall09403]

Is shinymaterial incompatible with rintrojs? The code below should pop up with an intro.js box for the heading, but nothing happens when the help button is clicked.

library(shiny)
library(dplyr)
library(shinymaterial)
library(rintrojs)

server <- function(input, output, session){
 
  observeEvent(input$help, {
    introjs(session, options = list("nextLabel"="Onwards and Upwards",
                                    "prevLabel"="Did you forget something?",
                                    "skipLabel"="Don't be a quitter"))
  })
   
}

ui <- material_page(
  
  material_side_nav(
    fixed = FALSE,
    
    # Place side-nav tabs within side-nav
    material_side_nav_tabs(
      side_nav_tabs = c(
        "Home" = "home"
      )
    )
  ),
    
  material_side_nav_tab_content(
    
    side_nav_tab_id = "home",
    
    h5("Hello") %>%
      introBox(
        data.step = 1,
        data.intro = "This is introjs"
      ),
    
    material_button(input_id = "help", label = "Help")
    
  )
  
)

shinyApp(ui, server)