demographic_table <- function()

in R/ad_data.R [256:263]

• 8 lines of code
• 2 McCabe index (conditional complexity)

demographic_table <- function(results) {
  if (!("demographic_distribution" %in% results$fields)) {
    stop("\"demographic_distribution\" must be one of the fields returned in order to
construct region table.")
  }
  results$data %>%
    purrr::map_df(demographic_row)
}