tests/testthat/test-gg-line.R

In datasketch/ggmagic: Wrapper for Multiple Plots using ggplot.

test_that("Lines plot", {
  data <- lubridate::lakers
  data$date <- lubridate::ymd(data$date)
  data <- data |> group_by(team, date) |> summarise(total = sum(x, na.rm = T))
  gg_line(data = data, vars = c( "date", "total"), opts = NULL)
  data <- data |> filter(team %in% c("IND", "CLE"))
  gg_line(data = data, vars = c( "date", "total", "team"), color_by = "team")

  data <- lubridate::lakers
  data$date <- lubridate::ymd(data$date)
  gg_line_Dat(data)
  gg_line_DatNum(data)
  gg_line_CatDatNum(data)
})