library(testthat)
library(maps)
setwd("C:/Users/Usuario/Documents/Kevin Cursos/Kevin Rstudio/Especializacion/Curso 3/week2/tarea/data")
#1 fars_read()
expect_that(fars_read("accident_2014.csv.bz2"), is_a("data.frame"))
#2 make_filename()
expect_that(make_filename(2014), is_a("character"))
#3 fars_read_years()
expect_that(fars_read_years(2014), is_a("list"))
#4 fars_summarize_years()
expect_that(fars_summarize_years(2014), is_a("data.frame"))
#5 fars_map_state(1,2014)
expect_that(fars_map_state(1,2014), is_a("NULL"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.