tests/testthat/test-check_geom_Timeline.R

In azerbinati/capStoneQuake: This Package has been create for Coursera CapStone

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")

})