adlib_fields <- function()

in R/adlib.R [204:248]

• 45 lines of code
• 7 McCabe index (conditional complexity)

adlib_fields <- function(fields = FIELDS) {
  fields <- match.arg(fields, several.ok = TRUE)
  if (length(fields) == 1) {
    if (fields == "ad_data") {
      fields <- c(
        "ad_snapshot_url", "ad_creation_time", "ad_creative_body",
        "ad_creative_link_caption", "ad_creative_link_description",
        "ad_creative_link_title", "ad_delivery_start_time", "ad_delivery_stop_time",
        "currency", "funding_entity", "page_id", "page_name", "spend", "impressions",
        "potential_reach"
      )
    } else if (fields == "demographic_data") {
      fields <- c("ad_snapshot_url", "demographic_distribution")
    } else if (fields == "region_data") {
      fields <- c("ad_snapshot_url", "region_distribution")
    }
  } else if (("ad_data" %in% fields) |
    ("demographic_data" %in% fields) |
    ("region_data" %in% fields)) {
    stop("Fields should be exactly one of \"ad_data\", \"demographic_data\",
\"region_data\", OR some combination of
\"ad_creation_time\",
\"ad_creative_body\",
\"ad_creative_link_caption\",
\"ad_creative_link_description\",
\"ad_creative_link_title\",
\"ad_delivery_start_time\",
\"ad_delivery_stop_time\",
\"ad_snapshot_url\",
\"currency\",
\"demographic_distribution\",
\"funding_entity\",
\"impressions\",
\"page_id\",
\"page_name\",
\"potential_reach\",
\"publisher_platforms\",
\"region_distribution\",
\"spend\"")
  }
  if (!("ad_snapshot_url" %in% fields)) {
    stop("If fields is not ad_data, demographic_data, or region_data then it must include ad_snapshot_url")
  }
  paste0(fields, collapse = ",")
}