tests/testthat/test_eq_create_label.R

In ekawabata/TheCapstoneProject: Title: Useful functions for studying and visualising data from the U.S. National Oceanographic and Atmospheric Administration (NOAA)

test_that("Test eq_create_label",
          {
            Plot <- readr::read_delim(system.file("extdata", "signif.txt", package = "TheCapstoneProject"), delim = '\t') %>%
              eq_clean_data() %>%
              eq_location_clean() %>%
              dplyr::mutate(popup_text = eq_create_label(.))
            expect_is(Plot, class = c("tbl_df", "tbl", "data.frame"))
          })