Trimming EventBrite data to suit local purpose

adapt_eventBrite.R

library(here)
suppressPackageStartupMessages(library(dplyr))

ourDir <- file.path(here(), "events/StatesmanSeries/data")
ebriteCsv <- file.path(ourDir, "SOGP_Eventbrite Reg.csv")
eBrite <- read.csv(ebriteCsv, stringsAsFactors = FALSE)

vars <- colnames(eBrite)

dat <- eBrite %>%
  select(c(Date, Tickets, First.Name, Last.Name, Email.Address))

write.csv(dat, 
          file = file.path(ourDir, "online_reg.csv"),
          na = "",
          row.names = FALSE)