region_row <- function()

in R/ad_data.R [266:273]

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

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