tests/testthat/test-get_15min_seq.R

today <- Sys.Date()

test_that("get_15min_seq works", {
  expect_equal(length(get_15min_seq(today, today + 1)), 97L)
})

Try the standardlastprofile package in your browser

Any scripts or data that you put into this service are public.

standardlastprofile documentation built on May 29, 2024, 2:54 a.m.