tests/testthat/test-eq-vis.R

In garvish/earthquakes: Visulize NOAA earthquakes data into Timeline and Map data

context("Test the basic functionality of the package\n\n")
library(earthquakes)
library(testthat)
setwd(system.file("extdata", package = "earthquakes"))

test_that("Clean Data", {
  print("Testing Data Clean Functon")
  eq_data <- eq_clean_data("signif.txt")
  expect_that(eq_data, is_a("data.frame"))
  expect_that(eq_data$DATE, is_a("Date"))
})

test_that("Location Name", {
  print("Testing Location Name Functon")
  eq_data <- eq_clean_data("signif.txt")
  expect_that(eq_data, is_a("data.frame"))
  expect_that(eq_data$DATE, is_a("Date"))

  eq_data$LOCATION_NAME <- eq_data %>% eq_location_clean()
  expect_that(eq_data$LOCATION_NAME, is_a("character"))
})

test_that("Geom Timeline", {
  print("Testing Geom Timeline Functon")
  # Geom plot is not possible to test without Vdiff which is in this scope.
})

test_that("Geom TimelineLabel", {
  print("Testing Geom TimelineLabel Functon")
  # Geom plot is not possible to test without Vdiff which is in this scope.
})

test_that("Geom Timeline Them", {
  print("Testing Geom Timeline Them Functon")
  # Geom plot is not possible to test without Vdiff which is in this scope.
})

test_that("Earthquakes Map", {
  print("Testing Earthquakes Map Functon")
  # Geom plot is not possible to test without Vdiff which is in this scope.
})

test_that("Earthquakes Map with Popup Label", {
  print("Testing Earthquakes Map with Popup Label Functon")
  # Geom plot is not possible to test without Vdiff which is in this scope.
})