tests/testthat/testthat.R

library(testthat)
library(FarsExample)
library(dplyr)
library(readr)
# getwd()
# test_check("FarsExample")

test_that("fars_summarize_years returns data frame",{

    # old_wd <- getwd()
    # setwd("...")

    year_summary <- fars_summarize_years(c(2013))

    expect_is(year_summary,"data.frame")

    # setwd(old_wd)
})
00mathieu/FarsExample documentation built on May 28, 2019, 11:01 a.m.