Tabs & Navbar example does not work

[jzadra]

The example code (pasted below) in the Tabs section of this documentation (https://cicerone.john-coene.com/examples/tabs) does not work for me. It shows the first step, but then the next button doesn't do anything.

library(cicerone)

guide <- Cicerone$
  new()$ 
  step(
    el = "plot",
    title = "Text Input",
    description = "This is where you enter the text you want to print."
  )$
  step(
    "summary",
    "Send the Text",
    "Send the text to the server for printing",
    tab = "summary_tab",
    tab_id = "tabz"
  )

library(shiny)

ui <- fluidPage(
  use_cicerone(), # include dependencies
  h1("tabs"),
  tabsetPanel(
    id = "tabz",
    tabPanel("plot_tab", h2("show plot here", id = "plot")),
    tabPanel("summary_tab", h2("show summary here", id = "summary"))
  )
)

server <- function(input, output){

  # initialise then start the guide
  guide$init()$start()

}

shinyApp(ui, server)

[jzadra]

This is not working in the current CRAN version, but does work with the current dev version (1.0.5.9000).