Nothing
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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.