tests/testthat/test_class.R

In schwarja209/HurricaneWindGeom: Provides Tools to Create a Geom Showing Wind Radii for Hurricane

library(testthat)
library(HurricaneWindGeom)

test_that("object classes are correct",{
    expect_is(get_stormdata("ebtrk_atlc_1988_2015.txt"),c("tbl_df","tbl","data.frame"))
    expect_is(GeomHurricane,c("GeomHurricane","Geom","ggproto"))
    expect_is(geocode_radii(c(1,1)),"data.frame")
})