Блестящий, как включить значок dec, используя вопрос синтаксиса htmltools

Question

Мне нужно показать значок (◼), используя dec, но мои навыки работы с HTML очень ограничены.

Что я пытаюсь и нужно настроить:

htmltools::tags$span("I will display"  , style="◼"),
htmltools::tags$span("I will display"  , style="#9724;"),
htmltools::tags$style("I will display" , style="◼"),
htmltools::tags$style("I will display" , style="#9724;"),

Как мнепоказать значок выше, используя систему тегов глянца?

https://www.w3schools.com/charsets/tryit.asp?deci=9724&ent=FilledSmallSquare

ПРАВКА: обновлено. Мне нужно, чтобы значок был частью заголовка DT.

datatable(
  head(iris),
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', 
htmltools::tags$span("I will display"  , style="◼"),
htmltools::tags$span("I will display"  , style="#9724;"),
htmltools::tags$style("I will display" , style="◼"),
htmltools::tags$style("I will display" , style="#9724;"),
  )
)

Answer 1

htmltools по умолчанию экранирует содержимое HTML, поэтому амперсанд в сущности HTML будет экранирован следующим образом:

> htmltools::span("◼")
<span>&amp;#9724;</span>

Вы можете использовать необработанный HTML с htmltools::HTML(), например:

DT::datatable(
  head(iris),
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', 
    htmltools::HTML("<span>I will display &#9724;</span>")
  )
)

или включить символ в строку без экранирования HTML:

DT::datatable(
  head(iris),
  caption = htmltools::tags$caption(
    style = 'caption-side: bottom; text-align: center;',
    'Table 2: ', 
    htmltools::tags$span("I will display ◼ or \u25fc")
  )
)

Answer 2

Чтобы добавить значок в блестящий, вы можете использовать ìcon.

library(shiny)
ui <- fluidPage(
  htmltools::tags$span("I will display", icon("square"))
)
server <- function(input, output) {
}
shinyApp(ui, server)
}