tests/testthat/test-earqke_create_label.R

In anamikapoyil04/NCEI-Earthquakes: Mastering Software Development in R Capstone Project

context("test-earqke_create_label")

test_that("Creating the Label to Popup", {

  # Path to raw data
  raw_data_path <- system.file("extdata", "signif.txt", package = "NCEIEarthquakes")

  # Loading the raw data
  raw_data <- readr::read_delim(file = raw_data_path, delim = "\t")

  # Creating Labels to Popup
  labels_popup <- raw_data %>% earqke_clean_data() %>% earqke_create_label()

  # Should be character
  expect_that(class(labels_popup), equals("character") )
})