R/people.R

In fmichonneau/carpenter: Tools to work with The Carpentries GitHub repositories

all_people <- function() {

  api_key <- get_env_var("REDASH_QUERY128")
  url <- paste0(
    "https://redash.carpentries.org/api/queries/128/results.csv?api_key=",
    api_key
  )

  readr::read_csv(
    file = url,
    show_col_types = FALSE
  ) %>%
  dplyr::rename(
    email = person_email,
    pub_name =  person_name
  )
}