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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.