Nothing
test_that("oa_ngrams works", {
skip_on_cran()
# Single paper ngram search ####
works_multi <- c("W1963991285", "W2038196424")
ngram_multi <- oa_ngrams(works_multi)
expect_equal(nrow(ngram_multi), length(works_multi))
first_ngram <- ngram_multi$ngrams[[1]]
expect_s3_class(first_ngram, "data.frame")
expect_true(ncol(first_ngram) >= 4)
})
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.