popover help file contains wrong argument in Example Application showPopover function

[andrewbaxter439]

The example code assigns the id of the element to a target argument, rather than the required id element:

ui <- container(
  buttonInput("showHelp", "Help!"),
  div(
    id = "textBlock1",
    "Sociis natoque penatibus et magnis"
  ) %>%
    padding(3)
) %>%
  display("flex") %>%
  flex(justify = "around")

server <- function(input, output) {
  observeEvent(input$showHelp, ignoreInit = TRUE, {
    showPopover(
      target = "textBlock1",
      popover(title = "Hint", "I am a <div> element!"),
      placement = "bottom",
      duration = 4
    )
  })
}

shinyApp(ui, server)

Giving in the console:

Warning: Error in showPopover: unused argument (target = "textBlock1")
  [No stack trace available]

And not showing the popover.