Nothing
library(qwraps2)
# verify the return is TRUE for a set of installed packages
stopifnot(pkg_check(c("qwraps2", "ggplot2")))
# verify a return of FALSE if at least one of the packages is not installed
stopifnot(pkg_check(c("qwraps2", "NOT A PKG")) == FALSE)
# verify FALSE is installed package is < provided version
stopifnot(pkg_check(c("qwraps2"), "999.999.999") == FALSE)
# Expect an error to be thrown with the `stop` arguement is used.
test <- tryCatch(pkg_check(c("qwraps2", "NOT A PKG"), stop = TRUE), error = function(e) e)
stopifnot(inherits(test, 'error'))
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.