if (FALSE) {
ngrams_data <- oa_ngrams(c("W1963991285", "W1964141474"))
# 10 most common ngrams in the first work
first_paper_ngrams <- ngrams_data$ngrams[[1]]
first_paper_ngrams[
order(first_paper_ngrams$ngram_count, decreasing = TRUE),
][
1:10,
]
# Missing N-grams are `NULL` in the `ngrams` list-column
oa_ngrams("https://openalex.org/W2284876136")
}
Run the code above in your browser using DataLab