addResourcePath should be called .onLoad, not .onAttach

When using shinyBS using shinyBS::bsCollapsePanel, the javascript and CSS fails to load. This is because the shiny resourcePath is only registered .onAttach. It should be registered .onLoad instead.

Reprex (! load this in a clean R session without attaching the shinyBS library):

library(shiny)
shinyApp(
  ui =
    fluidPage(
      sidebarLayout(
        sidebarPanel(HTML("This button will open Panel 1 using updateCollapse."),
                     actionButton("p1Button", "Push Me!"),
                     selectInput("styleSelect", "Select style for Panel 1",
                                 c("default", "primary", "danger", "warning", "info", "success"))
        ),
        mainPanel(
          shinyBS::bsCollapse(id = "collapseExample", open = "Panel 2",
                              shinyBS::bsCollapsePanel("Panel 1", "This is a panel with just text ",
                                     "and has the default style. You can change the style in ",
                                     "the sidebar.", style = "info"),
                              shinyBS::bsCollapsePanel("Panel 2", "This panel has a generic plot. ",
                                     "and a 'success' style.", plotOutput("genericPlot"), style = "success")
          )
        )
      )
    ),
  server =
    function(input, output, session) {
      output$genericPlot <- renderPlot(plot(rnorm(100)))
      observeEvent(input$p1Button, ({
        shinyBS::updateCollapse(session, "collapseExample", open = "Panel 1")
      }))
      observeEvent(input$styleSelect, ({
        shinyBS::updateCollapse(session, "collapseExample", style = list("Panel 1" = input$styleSelect))
      }))
    }
)

ebailey78 / shinyBS

addResourcePath should be called .onLoad, not .onAttach #115