demographic_row <- function()

in R/ad_data.R [240:247]

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

demographic_row <- function(result_row) {
  demo_row <- result_row[["demographic_distribution"]]
  id <- adlib_id_from_row(result_row)
  demo_row %>%
    purrr::map_df(as_tibble) %>%
    dplyr::mutate(adlib_id = id) %>%
    dplyr::mutate(dplyr::across(dplyr::contains("percentage"), ~ as.numeric(.x)))
}