How to semantically add JS to the head of a page_navbar?

[MayaGans]

Hi!

Question.... When I add a custom script to a page_navbar I get a warning message:

Warning message:
Navigation containers expect a collection of `bslib::nav_panel()`/`shiny::tabPanel()`s and/or `bslib::nav_menu()`/`shiny::navbarMenu()`s. Consider using `header` or `footer` if you wish to place content above (or below) every panel's contents. 

Where am I supposed to be putting custom JS/scripts for the head in order to not get this warning?

Example:

library(shiny)
library(bslib)

ui <- page_navbar(
   title = "My App",
   # where am I supposed to put something like this
   tags$head(
      tags$script(src = "path/to/file.js", type = "text/javascript")
   ),
   nav_panel(title = "One", p("First page content.")),
   nav_panel(title = "Two", p("Second page content."))
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

Any help/tips appreciated!

[gadenbuie]

Hi @MayaGans! You have three options:

1. Stick it in one of the nav_panel()s.
2. or use one of the header or footer arguments of page_navbar().

library(shiny)
library(bslib)

ui <- page_navbar(
   title = "My App",
   header = tags$head(tags$script("alert('👋 hello hello!')")),
   nav_panel(title = "One", p("First page content.")),
   nav_panel(title = "Two", p("Second page content."))
)

shinyApp(ui, \(...) { })