Using rintrojs with a navbar UI

global.R

library(shiny)
library(rintrojs)

data(mtcars)
my_data <- mtcars

server.R

# Define server logic required to draw a histogram
shinyServer(function(input, output, session) {
   
  output$distPlot <- renderPlot({
    
    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    
    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
    
  })
  
  output$summary <- renderPrint({
    summary(my_data[[input$var]])
  })
  
  observeEvent(input$btn, {
    introjs(session)
  })
})

ui.R

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  introjsUI(),
  navbarPage("navbar",
    tabPanel(
      "Plot",
      # Sidebar with a slider input for number of bins 
      sidebarLayout(
        sidebarPanel(
          introBox(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            data.step = 1,
            data.intro = "Use this slider to select number of bins"
          ),
          
          actionButton("btn", "Click me")
        ),
        
        # Show a plot of the generated distribution
        mainPanel(
          introBox(
            plotOutput("distPlot"),
            data.step = 2,
            data.intro = "This is the histogram"
          )
        )
      )
    ),
    tabPanel(
      "Summaries",
      sidebarLayout(
        sidebarPanel(
          introBox(
            selectInput("var",
                        "Variable",
                        c("mpg", "drat", "wt"),
                        selected = "mpg"
            ),
            data.step = 3,
            data.intro = "Select the variable you want summarized"
          )
          
        ),
        
        mainPanel(
          verbatimTextOutput("summary")
        )
      )
    )
  )
))