library(leaflet)
if (FALSE) {
content <- paste(sep = "",
"Samurai Noodle",
"606 5th Ave. S",
"Seattle, WA 98138"
)
widget <- leaflet() %>% addTiles() %>%
addPopups(-122.327298, 47.597131, content,
options = popupOptions(closeButton = FALSE)
)
tw_widget(widget)
}
Run the code above in your browser using DataLab