Nothing
test_that("citations pulled", {
paper_cite_link <- "https://scholar.google.com/scholar?cites=6140457238337460780"
papers_cited_df <- get_citation_count(paper_cite_link)
testthat::expect_named(papers_cited_df, c('original_paper', 'cite_titles', 'links'))
})
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.