tests/testthat/helper-data.R

library(dplyr)
library(EBASE)
library(tidyr)

# get three days of data
dat <- exdat %>%
  filter(lubridate::month(DateTimeStamp) == 6) %>% 
  filter(lubridate::day(DateTimeStamp) %in% 1:3)

Try the EBASE package in your browser

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

EBASE documentation built on Sept. 26, 2024, 1:08 a.m.