R/get_data.R

In radous: Query Random User Data from the Random User Generator API

#' Query random user data from the Random User Generator API
#'
#' @param n Number of users to fetch, up to 5,000 generated users in one request. Defaults to 1
#' @param seed A character string used to generate the same set of users. Defaults to NULL.
#'
#' @return A tibble that contains random user data
#' @export
#'
#' @examples
#'
#' get_data(n = 10, seed = "1990")
#'

get_data <- function(n = 1, seed = NULL) {


checkmate::assert_number(n,
                         na.ok = FALSE,
                         lower = 0,
                         upper = 5000,
                         finite = TRUE)

checkmate::assert_character(seed, null.ok = TRUE)

link <- ifelse(is.null(seed),

glue::glue("https://randomuser.me/api/?results={n}&format=csv"),

glue::glue("https://randomuser.me/api/?seed={seed}&results={n}&format=csv")

)

tryCatch(

  expr = {

    data <- httr::RETRY(
      "GET",
      link,
      times = 5)


    text <- httr::content(data, as = "text")

    data <- readr::read_csv(I(text))

    names(data) <- gsub(".", "_", names(data), fixed = TRUE)

    return(data)


  },

  error = function(cond){


    if(!curl::has_internet()){

      message(paste0("Please check your internet connexion: ", cond))

      return(NA)

    } else if(data$status_code != 200) {

      message(paste0("Status code response not see successful: "), cond)

      return(NA)


    } else {

      message(paste0("Undefined Error: "), cond)

      return(NA)


      }

}
)




}