tests/testthat/test_eq_map.R

In SanjayShetty01/masteringSoftwareDevelopmentinR: A Capstone Project

library(testthat)



data = system.file('extdata', 'earthquakesData.tsv', package ='masteringSoftwareDevelopmentinR')
data = read_data(data)
cleanedData <- eq_clean_data(data)

map = eq_map('Location.Name', cleanedData)

test_that("the output is a leaflet",{

  expect_s3_class(map, "leaflet")
})