R/get-random-page.R

In wikkitidy: Tidy Analysis of Wikipedia

get_random_page <- function(n, format = c("title", "html", "summary", "related"), language = "en") {
  format <- rlang::arg_match(format)
  response_format <- switch(
    format,
    "title" = ,
    "summary" = ,
    "related" = "json",
    "html" = "html"
  )
  format_n <- rep(format, n)
  response <- get_rest_resource(
    "page", "random", format_n,
    language = language, api = "wikimedia", response_format = response_format
  )
  response
}