R/make_data.R

In jdide/625.495-timeseries:

make_data <- function() {
  stopifnot(all(require(tidyverse), require(devtools)))
  readr::read_csv(file = system.file('extdata', 'time_series_fixed.csv', package = 'timeseries'),
                  col_types = list(
                    dt = col_date(),
                    hour = col_integer(),
                    measurement = col_integer()
                  )) %>%
  dplyr::rename(date = dt, event = measurement) %>%
  dplyr::arrange(date, hour) %>%
  dplyr::mutate(date_time = as.POSIXct(
    strptime(paste0(a$date, ' ', a$hour, ':00:00'), '%Y-%m-%d %H:%M:%S', tz = 'UTC')))

  hour %>%
    dplyr::select(c(date, event)) %>%
    dplyr::group_by(date) %>%
    dplyr::summarise(event = max(event)) -> day

  devtools::use_data(hour, overwrite = TRUE)
  devtools::use_data(day, overwrite = TRUE)
}