Let’s use an HTML widget.

library("leaflet")
# From `?leaflet::leaflet`
m <-  leaflet() %>% addTiles()
m %>% addPopups(-93.65, 42.0285,
                'Here is the <b>Department of Statistics</b>, ISU')