bs_embed_popover escapes HTML

Inside content, bs_embed_popover does not render html tags. Here I have a minimal example which just displays the html code for €:

tags$a("Link with popover", href = "#") %>% bsplus::bs_embed_popover(
              title = "xx",
              content = HTML("&#8364;"),
              placement = "bottom",
              trigger = "hover focus"
)

Is there any workaround to render html signs properly?

What if you did something like this:

tags$a("Link with popover", href = "#") %>% 
  bsplus::bs_embed_popover(
    title = "xx",
    content = "&#8364",
    placement = "bottom",
    trigger = "hover focus"
  )

same result..

Gah!

I think the problem might be here:

bsplus/R/set_attr.R

Line 121 in 18a52cf

    
           attributes_bs <- do.call(bs_map_attr, c(list(.prefix = .prefix), attributes_raw))

I suspect that the c() function is stripping the HTML class from the character string.

I'll need to think about how to work around this....

Found a workaraound using html="true" on stackoverflow: https://stackoverflow.com/questions/54424978/bs-embed-popover-html-tags-in-content-variable

tags$a("Link with popover", href = "#") %>% 
            bsplus::bs_embed_popover(
                title = "xx",
                content = HTML("&#8364;"),
                placement = "bottom",
                trigger = "hover focus", 
                html = TRUE
            )

Super!

If it's OK with you, I'd like to leave this issue open to remind me to see if this is something that can be coded, or if I should document the workaround.

Of course, Thanks anyway for your package!