Nothing
test_that("Wrong input arguments are detected", {
data("futbol")
expect_error(gg_tmd(1:10, distancia, longp), "The object provided in the argument df is not a data.frame")
expect_error(gg_tmd(futbol, longp, longp), "longp provided for the vble argument is not a numeric variable")
expect_error(gg_tmd(futbol, dist, dist), "dist provided for the group argument is neither a character nor a factor variable")
expect_error(gg_tmd(futbol, distancia, longp), "object 'distancia' not found")
futbol$var <- "a"
expect_error(gg_tmd(futbol, dist, var), "There's only one group")
})
test_that("All the code runs ok", {
data("futbol")
expect_true(ggplot2::is.ggplot(gg_tmd(futbol, dist, longp)))
futbol2 <- futbol[futbol$longp %in% c("< 0.81 m", "0.81 a 0.90 m"), ]
expect_true(ggplot2::is.ggplot(gg_tmd(futbol2, dist, longp)))
})
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.