R/utils-epetition.R

In EvanOdell/hansard: Provides Easy Downloading Capabilities for the UK Parliament API

### 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
}