Add and fix example popovers for elements

[Martin-Jung]

Ideally for every element a popup is shown that display an example of what could be entered in a given field, also possibly including a reference.

The protocol has already been expanded by a popexample field which provides the example text. This text needs to be loaded in and added via addPopover()
The Example code works, however not when added within golem modules?

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    header = dashboardHeader(),
    sidebar = dashboardSidebar(),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    title = "Popover server",
    body = dashboardBody(
      sliderInput("obs", "Number of observations:",
                  min = 0, max = 1000, value = 500
      ),
      textAreaInput(inputId = "test",label = "hello"),
      plotOutput("distPlot")
    )
  ),
  server = function(input, output, session) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
    
        addPopover(
          id = "test",
          options = list(
            content = "Vivamus sagittis lacus vel augue laoreet rutrum faucibus.",
            title = "Server popover",
            placement = "bottom",
            trigger = "hover"
          )
        )
  }
)

[Martin-Jung]

Added in 55142ea