tests/testthat/test-leafserv.R

In etc5523-2020/r-package-assessment-jthoma48: Visualize coronavirus statistics from around the world

test_that("leafserv()", {
  long <- data5$Long
  lat <- data5$Lat
  state <- data5$State
  expect_equal(leafserv(Long = long, Lat = lat, State = state),
               leaflet(data5) %>% 
                 addTiles() %>% 
                 addCircleMarkers(~Long, ~Lat, popup = ~State, color = "blue", opacity = 0.7) )
})