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)
fawda123/EBASE documentation built on Sept. 29, 2024, 4:34 p.m.