R Ошибка листовки при печати меток с фреймом данных 0 строк

Question

У меня есть листовка-карта в блестящем приложении. При фильтрации данных у вас может быть фрейм данных с 0 строками. Это вызывает проблему для аргумента label. Простой пример ниже дает ту же ошибку.

library(leaflet)
library(htmltools)

df <- read.csv(textConnection(
  "Name,Lat,Long
Samurai Noodle,47.597131,-122.327298
Kukai Ramen,47.6154,-122.327157
Tsukushinbo,47.59987,-122.326726"))

# this works fine
leaflet(df) %>% addTiles() %>%
  addMarkers(~Long, ~Lat, label = ~htmlEscape(Name))

Но когда все строки фрейма данных удалены:

leaflet(df[0,]) %>% addTiles() %>%
  addMarkers(~Long, ~Lat, label = ~htmlEscape(Name))

Вы получаете эту ошибку:

Error in sum(sapply(label, function(x) { : 
  invalid 'type' (list) of argument

Та же ошибка возникает с другими типами точек (например, addCircleMarkers). Переход с label на popup убирает ошибку.

Кто-нибудь знает, почему так происходит или как это обойти?