I suppose, I found a bug.
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.60,-122.336726"
))
leaflet(df) %>% addTiles() %>%
addMarkers(df$Long, df$Lat,
popup = df$Name,
...