Добавить разрывы строк в текст при наведении курсора?

Question

Я пытаюсь создать небольшую рамку с парящим текстом, который состоит из нескольких строк и определенных слов, выделенных жирным шрифтом. Я пытаюсь добавить разделитель '\ n' или '
', но он просто печатает их как символы между моими словами. Я также пытался сделать

 cat(paste(area, status, num, sep = "\n")) 

но это только вызвало проблемы, когда я пытался реализовать его на своей карте.

Я хочу, чтобы мой текст выглядел так:

 Area
 **Status:** status
 num

Прямо сейчас вот что у меня есть:

cd_full <- cd_full%>% 
              mutate(hover = paste(area, paste("Status:", status), num, sep = "\n")

leaflet() %>% 
      addPolygons(data = subset(cd_full, color == "green"), opacity= 2, weight=2, color = "Green" , group = "Green",
                label = ~hover, highlightOptions = list(bringToFront = TRUE)) %>%
      addPolygons(data = subset(cd_full, color == "yellow" ), opacity=.5, weight=.4, color = "Yellow",
                label = ~hover,  group = "yellow") 

но все это просто заканчивается на одной строке. Спасибо