zzz <- new.env() zzz$prompt <- " " .onLoad <- function (libname, pkgname) { zzz$prompt <- options(prompt = "[threaded] > ") } .onUnload <- function (libpath) { options(prompt = zzz$prompt) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.