inst/tests/test-eq_create_label.R

In JamasEnright/RCapstone: Basic plots of earthquake data

library(testthat)
library(RCapstone)
library(dplyr)
library(lubridate)
library(leaflet)

test_that("eq_create_label() returns a dataset",{
  raw_data<-readr::read_tsv(system.file("extdata", "signif.txt", package = "RCapstone"))
  raw_clean <- raw_data %>% eq_clean_data() %>% eq_location_clean() %>%
    dplyr::filter(COUNTRY == "MEXICO" & lubridate::year(DATE) >= 2000)
  expect_is(eq_create_label(raw_clean),"character")
})