Nothing
test_that("random_user", {
# character
expect_type(random_user(), "character")
# non-empty
expect_true(nzchar(random_user()))
# all no longer than 16 length
for (i in replicate(100, random_user())) {
expect_true(nchar(i) <= 16)
}
})
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.