#' Search Stack Overflow for your most recent error message.
#'
#' @export
tracestack <- function() {
last_error <- geterrmessage()
if (is.null(last_error)) {
stop("No error message available")
}
query <- URLencode(paste("[r]", last_error))
browseURL(paste0("http://stackoverflow.com/search?q=", query))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.