#' This is a test
#'
#' @dynex interactive()
#' # This example needs an interactive session.
#' name <- readline("name> ")
#' cat("hello", name)
#' cat('hello', name)
#'
#' @dynex pingr::is_online()
#' # This example needs internet connection
#' pingr::nsl("www.r-project.org")
#'
#' @name dynextest
#' @keywords internal
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.