R/process-incites.R

Defines functions process_incites

process_incites <- function(incites_df, as_raw = FALSE) {
  if (!is.data.frame(incites_df)) return(NULL)
  if (as_raw) return(incites_df)
  colnames(incites_df) <- tolower(colnames(incites_df))
  cols <- c(
    "isi_loc", "article_type", "tot_cites", "journal_expected_citations",
    "journal_act_exp_citations", "impact_factor", "avg_expected_rate",
    "percentile", "nci", "esi_most_cited_article",
    "hot_paper", "is_international_collab", "is_institution_collab",
    "is_industry_collab", "oa_flag"
  )

  bad_cols <- cols[!cols %in% colnames(incites_df)]
  if (length(bad_cols) != 0) {
    stop(
      "API isn't serving these columns anymore: ",
      paste0(bad_cols, collapse = ", ")
    )
  }

  incites_df <- incites_df[, cols]
  colnames(incites_df)[1] <- "ut"
  incites_df$ut <- paste0("WOS:", incites_df$ut)
  incites_df[, 3:15] <- apply(incites_df[, 3:15], MARGIN = 2, FUN = as.numeric)
  incites_df[, 10:15] <- apply(
    incites_df[, 10:15], MARGIN = 2, FUN = function(x) x == 1
  )
  incites_df
}
vt-arc/wosr documentation built on Sept. 27, 2022, 5:44 a.m.