tests/testthat/test-r-datefilter.R

In MarijnJABoer/HeavySetR: A Heavyset Workout analysis package for R

context("test-r-datefilter")

test_that("endDateFilter filters a dataframe with a maximum date", {
  date_df <-
    data.frame(date = as.Date(
      c(
        "2019-01-01",
        "2019-01-02",
        "2019-01-03",
        "2019-01-04",
        "2019-01-05"
      )
    ), Text = LETTERS[1:5])
  date_df <- endDateFilter(date_df, "2019-01-03")
  expect_equal(nrow(date_df), 3)
})


test_that("startDateFilter filters a dataframe with a minimum date", {
  date_df <-
    data.frame(date = as.Date(
      c(
        "2019-01-01",
        "2019-01-02",
        "2019-01-03",
        "2019-01-04",
        "2019-01-05"
      )
    ), Text = LETTERS[1:5])
  date_df <- startDateFilter(date_df, "2019-01-04")
  expect_equal(nrow(date_df), 2)
})