test_that("widget", { library(leaflet) content <- paste(sep = "
", "Samurai Noodle", "606 5th Ave. S", "Seattle, WA 98138" ) widget <- leaflet(options = leafletOptions(scrollWheelZoom = FALSE)) %>% addTiles() %>% addPopups(-122.327298, 47.597131, content, options = popupOptions(closeButton = FALSE) ) new_widget <- tw_widget(widget) expect_true(grepl("leaf", new_widget)) })