R/sets.R

In mooreaw/scRyfall: R Wrapper for the Scryfall API

#' Get a tibble of all MtG sets
#'
#' @return A tibble of sets
#'
#' @export
get_sets <- function() {
  base_url <- "https://api.scryfall.com/sets"

  Sys.sleep(5)
  req <- GET(base_url)
  res <- content(req)

  as_tibble(res) %>%
    select(data) %>%
    unnest_wider(data)
}

#' Get an individual set based on its 3-letter identifier
#'
#' @param code The set's 3-letter code
#'
#' @return A tibble containing the requested set
#'
#' @export
get_set_by_code <- function(code) {
  base_url <- "https://api.scryfall.com/sets/"

  Sys.sleep(1)
  url <- str_c(base_url, str_squish(code))
  req <- GET(url)
  res <- content(req)

  as_tibble(res)
}

#' Retrieve a set by an ID value.
#'
#' @param id the set's ID.
#' @param type the type of ID to use in the search.
#'
#' @export
get_set_by_id <- function(id, type = c("scryfall")) {
  NULL
}