R/07-wrp_clean.R

In worldriskpollr: Aggregated Survey Data from the World Risk Poll

#' Get aggregated data for a question in the World Risk Poll
#'
#' Allows you to access aggregated data for a World Risk Poll question.
#'
#' @param df data frame, a demographic category by which to aggregate
#'
#' @importFrom dplyr mutate mutate_if
#' @importFrom janitor clean_names
#' @importFrom labelled remove_attributes
#'
#' @return data frame with aggregated World Risk Poll question data
#' @noRd
#'
wrp_clean <- function(df) {
  df <- df %>% mutate(disaggregation = names(df)[2], question = names(df)[4])
  names(df)[1] <- "geography"
  names(df)[4] <- "response"
  names(df)[2] <- "group"
  df <- df %>%
    mutate_if(is.factor, as.character) %>%
    clean_names("lower_camel")
  names(df) <- gsub("yearOfInterview", "year", names(df))
  df$year <- as.numeric(df$year)
  df <- df[, c(1, 5, 2, 3, 7, 4, 6)]
  df <- df %>% remove_attributes("label")
  return(df)
}