tests/testthat/test_map.R

In jyjek/jyjekNOAA: Plot for Analysis NOAA dataset

context('map')

test_that('map creating', {
 map<- NOAA_quakes%>%
     eq_clean_data()%>%
     dplyr::filter(COUNTRY == 'MEXICO') %>%
     dplyr::filter(lubridate::year(DATE) >= 2000) %>%
     dplyr::mutate(popup_text = eq_create_label(.))%>%
     eq_map(annot_col = "popup_text")
  
  expect_s3_class(map, 'leaflet')
  expect_s3_class(map, 'htmlwidget')
})