R/getPrefixes.R

In jkaupp/acalogr:

#' getPrefixes allows you to retrieve a list of course prefixes within a single calendar
#'
#' @param calendar_id integer.  Calendar to select
#'
#' @return tibble of calendar_id (dbl) and course_prefix (chr)
#' @export
getPrefixes <- function(calendar_id) {

  content <- api_call("getPrefixes") %>%
    glue::glue("&catalog={calendar_id}") %>%
    httr::GET() %>%
    httr::content(as = "parsed") %>%
    xml2::xml_children() %>%
    xml2::xml_text() %>%
    purrr::discard(~grepl("success", .x))


  tibble::tibble(
    "calendar_id" = calendar_id,
    "course_prefix" = content)

}