tests/testthat/test_raw_data_clean.R

test_that("raw data is pulled in and cleaned",{
    db <- clean_raw_data()
    expect_is(db, "data.table")
    expect_is(db[,DATE],"Date")
    expect_is(db[,LATITUDE],"numeric")
    expect_is(db[,LONGITUDE],"numeric")
})
00mathieu/noaaQuake documentation built on May 7, 2019, 3:19 p.m.