context("check_geom_Timeline")
test_that("plot geomTimeline", {
#datafile <- system.file("tests","testthat","GeomDF.rda",package = "capStoneQuake")
load(file = "GeomDF.rda")
expect_is(df,"data.frame")
apl<- df %>% dplyr::arrange(DEATHS )%>% tail() %>%
ggplot() +
aes(
x = date,
size = EQ_PRIMARY,
colour = DEATHS
) +
geom_timeline(alpha=0.1)
expect_is(apl,"ggplot")
})
test_that("plot geomTimelineLabel", {
#datafile <- system.file("tests","testthat","GeomDF.rda",package = "capStoneQuake")
load(file = "GeomDF.rda")
expect_is(df,"data.frame")
apl<- df %>% dplyr::arrange(DEATHS )%>% tail() %>%
ggplot() +
aes(
x = date,
size = EQ_PRIMARY,
colour = DEATHS,
label= LOCALTION_NAME
) +
geom_timeline_label(xmin=2000,xmax=2017, n_max = 3, angle=30, aes(by=EQ_PRIMARY),colour="gray")
expect_is(apl,"ggplot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.