Nothing
try_or_stop_print_pattern <- function
### Try to run a capture function. If it fails we wrap the error
### message with a more informative message that also includes the
### generated pattern.
(expr,
### expression to try.
pat,
### regex pattern string.
engine
### string: regex engine.
){
tryCatch(expr, error=function(e){
stop(domain=NA, gettextf("%s
when matching pattern above with %s engine, an error occured: %s", pat, engine, e$message))
})
}
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.