Nothing
library(testthat)
#
# test_that("check shiny launcher",{
# logFile <- tempfile()
# registerLogger(createLogger(name = "TEST",
# threshold = "TRACE",
# appenders = list(createFileAppender(layout = layoutParallel,
# fileName = logFile))))
# logInfo("Hello world")
# expect_error(expect_warning(launchLogViewer("nonExistentFile")))
# })
#
# # test_that("ensure installed functions correctly",{
# # expect_message(ensure_installed("notARealPackage"))
# # })
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.