Nothing
context("test-wrapper")
data("love_words_latin_small")
test_that("ggwordcloud does not crash", {
expect_is({
set.seed(42)
print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers))
}, "ggplot")
})
test_that("ggwordcloud works with random.color = TRUE", {
expect_is({
set.seed(42)
print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers, random.color = TRUE))
}, "ggplot")
})
test_that("ggwordcloud works with random.order = FALSE", {
expect_is({
set.seed(42)
print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers, random.order = FALSE))
}, "ggplot")
})
test_that("ggwordcloud2 does not crash", {
expect_is({
set.seed(42)
print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")]))
}, "ggplot")
})
test_that("ggwordcloud2 works with random-light color", {
expect_is({
set.seed(42)
print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")],
color = "random-light"
))
}, "ggplot")
})
test_that("ggwordcloud2 works with explicit colors", {
expect_is({
set.seed(42)
print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")],
color = sample(c("black", "red", "green"),
nrow(love_words_latin_small),
replace = TRUE
)
))
}, "ggplot")
})
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.