foobar <- function(argument) {
argument
}
#' foobar2
#' @export
#' @examples
#' foobar2()
foobar2 <- function() {
outfile <- Sys.getenv("RCMDCHECK_OUTPUT", "")
if (nzchar(outfile)) {
cat(Sys.getpid(), sep = "\n", file = outfile)
}
}
foobar2()
while (TRUE) Sys.sleep(1000)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.