tests/testthat/test_popup.R

In jyjek/jyjekNOAA: Plot for Analysis NOAA dataset

context('popup')



test_that('popup', {
 
  data<-NOAA_quakes%>%
    eq_clean_data()%>%
    dplyr::filter(COUNTRY == 'MEXICO') %>%
    dplyr::filter(lubridate::year(DATE) >= 2000)  
   
 pop<- NOAA_quakes%>%
    eq_clean_data()%>%
    dplyr::filter(COUNTRY == 'MEXICO') %>%
    dplyr::filter(lubridate::year(DATE) >= 2000) %>%
    dplyr::mutate(popup_text = eq_create_label(.))
  
  expect_is(pop$popup_text, 'character')
  expect_equal(ncol(data)+1, ncol(pop))
  
})