R/utils-epetition.R

Defines functions epetition_tibble_tidy

### tidy function for epetition_tibble

epetition_tibble_tidy <- function(df, tidy_style) {
  if (nrow(df) > 0) {
    df$created._value <- gsub("T", " ", df$created._value)

    df$created._value <- lubridate::parse_date_time(
      df$created._value, "Y-m-d H:M:S"
    )

    df$created._datatype <- "POSIXct"

    df$status <- as.factor(df$status)
  }

  df <- hansard_tidy(df, tidy_style)

  df
}
EvanOdell/hansard documentation built on Oct. 12, 2021, 11:29 p.m.