context("storms")
test_that("storms meta", {
skip_on_cran()
skip_on_travis()
meta_1 <- storm_meta()
meta_2 <- storm_meta("storm_columns")
meta_3 <- storm_meta("storm_names")
expect_is(meta_1, "data.frame")
expect_is(meta_2, "data.frame")
expect_is(meta_3, "data.frame")
expect_equal(NCOL(meta_1), NCOL(meta_2))
expect_lt(NCOL(meta_3), NCOL(meta_2))
})
test_that("storms data", {
skip_on_cran()
skip_on_travis()
storm <- suppressMessages(storm_data(storm = '1970143N19091'))
yr <- suppressMessages(storm_data(year = 1940))
expect_is(storm, "tbl_df")
expect_is(yr, "tbl_df")
expect_is(storm, "data.frame")
expect_is(yr, "data.frame")
expect_is(storm$serial_num, "character")
expect_equal(unique(storm$serial_num), '1970143N19091')
})
test_that("storms shape data", {
skip_on_cran()
skip_on_travis()
# basin
res <- storm_shp(basin = 'EP')
# storm
res2 <- storm_shp(storm = '1970143N19091')
# year
res3 <- storm_shp(year = 1940)
shpread <- storm_shp_read(res3)
expect_is(res, "storm_shp")
expect_is(res2, "storm_shp")
expect_is(res3, "storm_shp")
expect_is(res$path, "character")
expect_equal(attr(res, "basin"), "EP")
expect_is(shpread, "SpatialPointsDataFrame")
expect_is(shpread@data, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.