library(httr)

# Fetching data from API
fetch_data <- function(api_url) {
  response <- GET(api_url)
  data <- content(response, "parsed")
  return(as.data.frame(data))
}

# Regular audits
audit_data <- function(df) {
  stopifnot(all(df$Age >= 0 & df$Age <= 120))
}