data-raw/presbyterians.R

library(readr)
library(dplyr)
pres <- read_csv("data-raw/weber-1927.csv")

presbyterians <- pres %>%
  mutate(denomination = ifelse(denomination == "Reunited Presbyterians",
                               "Presbyterians", denomination))

devtools::use_data(presbyterians, overwrite = TRUE)
ropensci/historydata documentation built on Oct. 16, 2021, 9:49 a.m.