Nothing
stop_for_capture_same_as_id <- function
### Error if capture names same as id.vars.
(capture.vars,
### character vector of capture column names.
id.vars
### character vector of id column names.
){
id.captures <- id.vars[id.vars %in% capture.vars]
if(length(id.captures)){
stop(domain=NA, gettextf("some capture group names (%s) are the same as input column names that did not match the pattern; please change either the pattern or the capture group names so that all output column names will be unique", paste(id.captures, collapse = ", ")))
}
}
stop_for_subject <- function
### Error if subject incorrect type.
(subject
### character vector.
){
if(!(
is.character(subject) &&
0 < length(subject)
)){
stop(domain=NA, gettextf("subject has class=%s and length=%s but should be a character vector with length>0", paste(class(subject), collapse = ","), length(subject)))
}
}
stop_for_engine <- function
### Stop if specified engine is not available.
(engine
### character string: PCRE, RE2, or ICU.
){
pkg.vec <- c(
PCRE="base",
RE2="re2",
ICU="stringi")
if(!(
is.character(engine) &&
length(engine)==1 &&
!is.na(engine) &&
engine %in% names(pkg.vec)
)){
stop(domain=NA, gettextf("engine must be character string, one of: %s", paste(names(pkg.vec), collapse = ", ")))
}
pkg <- pkg.vec[[engine]]
if(!requireNamespace(pkg, quietly=TRUE)){
install.code <- sprintf("install.packages('%s')", pkg)
stop(domain=NA, gettextf("%s engine not available; try %s", engine, install.code))
}
### character string.
}
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.