data-raw/prez_pwr/prez_pwr-dataprep.R

library(readr)
library(dplyr)
library(tidyr)

# load data ---------------------------------------------------------------------

raw_data <- read.csv(here::here("data-raw/prez_pwr/prez_pwr.csv"))

# cleaning: r-------------------------------

prez_pwr <- raw_data |>
  pivot_longer(
    cols = c(yes, no),
    names_to = "has_pwr",
    values_to = "percentage"
  ) |>
  uncount(percentage) |>
  janitor::clean_names() |>
  rename(president = i_president)

# save --------------------------------------------------------------------------

usethis::use_data(prez_pwr, overwrite = TRUE)
OpenIntroStat/usdata documentation built on June 3, 2024, 3:46 p.m.