Вы можете использовать addControl()
аргумент, чтобы добавить легенду и передать HTML-абзац tags$p
, то есть строку текста (здесь выделено жирным шрифтом, tags$b
)
library(leaflet)
library(htmltools)
my_title <- tags$p(tags$style("p {color: red; font-size:22px}"),
tags$b("My_beautiful_title_goes here"))
my_map <- leaflet() %>%
addTiles() %>%
setView(10.533, 45.822, zoom = 11) %>%
addControl(my_title, position = "bottomright" )
my_map