library(dplyr)
library(lubridate)
library(ggplot2)
library(leaflet)
library(JGGEarthquake)
# Previous task
df = eq_load_data("../extdata/signif.txt")
## geom_timeline test
test_geom_timeline <- geom_timeline()
test_that("geom_timeline has correct class", {
expect_is(test_geom_timeline ,"ggproto")
})
## geom_timeline_label test
test_geom_timeline_label <- geom_timeline_label()
test_that("geom_timeline_label has correct class", {
expect_is(test_geom_timeline_label ,"ggproto")
})
## eq_geom_timeline test
test_plot <- eq_geom_timeline(df)
test_that("result of eq_geom_timeline is a plot", {
expect_is(test_plot,"ggplot")
})
## eq_geom_timeline test
test_plot_label <- eq_geom_timeline_label(df)
test_that("result of eq_geom_timeline_label is a plot", {
expect_is(test_plot_label,"ggplot")
})
## eq_create_label tests
test_annote <- df %>% filter(COUNTRY == "MEXICO" & lubridate::year(date) >= 2000) %>%
mutate(popup_text = eq_create_label(.))
test_that("eq_create_label has correct classes", {
expect_is(test_annote,"data.frame")
expect_is(test_annote$popup_text,"character")
})
## eq_map tests
test_map <- test_annote %>% eq_map(annot_col="popup_text")
test_that("eq_map has correct class", {
expect_is(test_map ,"leaflet")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.