Nothing
context("Reading in Author Information")
expect_pass = function(expr) {
# testthat::expect_that(object, !testthat::gives_warning())
testthat::expect_failure(expect_warning(expr))
testthat::expect_failure(expect_error(expr))
}
test_that("author_df_works", {
if (have_api_key()) {
expect_pass({
dd = author_df(au_id = "40462056100", all_author_info = TRUE,
count = 25)
})
}
if (have_api_key()) {
expect_pass({
dd = author_df(au_id = "40462056100", all_author_info = FALSE,
count = 25)
})
}
if (have_api_key()) {
expect_pass({
dd = author_df(au_id = "8858259000", count = 25,
all_author_info = FALSE
)
})
}
if (have_api_key()) {
# testthat::expect_warning({
expect_warning({
dd = author_df(au_id = "8858259000", count = 25,
general = FALSE)
})
}
if (have_api_key()) {
expect_pass({
dd = author_list(au_id = "8858259000", count = 25)
})
}
})
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.