tests/testthat/testweek4.R

library(week4)
library(dplyr)
library(tidyr)
t1 <- fars_read(make_filename(2013))
t2 <- fars_read_years(c(2013, 2014))
t3 <- fars_summarize_years(c(2013, 2014))
expect_that(t1, is_a("tbl_df"))
expect_that(t2, is_a("list"))
expect_that(t3, is_a("tbl_df"))
izlude83/week4 documentation built on May 14, 2019, 6:03 a.m.