tests/testthat/test_df_rsplit_interval.R

In s-fleck/hammr: Assorted Utility Functions

context("df_rsplit_interval")


test_that("df_rsplit_interval works as expected", {

  tres <- df_rsplit_interval(iris)

  expect_identical(
    iris,
    as.data.frame(data.table::rbindlist(tres))
  )


})