R/tidy.R

In IsaacVerm/reproseries: example for the series of reproducible analysis posts on isaacverm.github.io

#' @export
temperatureSeriesToDf <- function(temperature_series) {
  timetk::tk_tbl(temperature_series)
}

#' @export
tidyTemperatures <- function(temperatures) {
  temperatures %>%
    tidyr::separate(col = index,
                    # index automatically generated by tk_tbl()
                    into = c("month", "year"),
                    sep = " ")
}