tests/testthat/test-read_hcd.R

In gavinsimpson/canadaHCD: Canadian Historical Climate Data

library("testthat")
library("canadaHCD")

## test reading a monthly HCD dataset file
test_that("read_hcd() returns a tbl_df", {
    df <- read_hcd(system.file("extdata/2855-monthly-data.csv",
                               package = "canadaHCD"))
    expect_s3_class(df, "tbl_df")
})