В общем я сделал дата фрэйм.
Points =st_centroid(sf_data)
Points = data.frame(name = sf_data$name,
Long = sapply(Points$geometry, '[[', 1),
Lat = sapply(Points$geometry, '[[', 2))
Потом просто подал вектора:
addLabelOnlyMarkers(lng = Points$long,
lat = Points$lat,
label = Points$name,
LabelOptions = LabelOptions(noHide = T, text Only = T))
И норм.