tests/testthat/test_eq_clean_data.R

In ekawabata/TheCapstoneProject: Title: Useful functions for studying and visualising data from the U.S. National Oceanographic and Atmospheric Administration (NOAA)

test_that("Test eq_clean_data",
          {
            CleanData <- read_delim(system.file("extdata", "signif.txt", package = "TheCapstoneProject"), delim = '\t') %>%
              eq_clean_data()
            expect_is(CleanData, class = 'data.frame')
            expect_is(CleanData$DATE, class = 'Date')
            expect_is(CleanData$LONGITUDE, class = 'numeric')
            expect_is(CleanData$LATITUDE, class = 'numeric')
            expect_is(CleanData$EQ_PRIMARY, class = 'numeric')
            expect_is(CleanData$TOTAL_DEATHS, class = 'numeric')
          })