Nothing
sanitize_identifiers <- function(x,
regex = "[^a-zA-Z0-9_]",
warningMsg = "Found (and removed) illegal characters in code identifiers %s. They were changed to %s.") {
x <- trimws(x);
sanitizedIds <-
gsub(regex, "", x);
illegalIds <- x != sanitizedIds;
if (any(illegalIds)) {
warning(
sprintf(
message,
vecTxtQ(x[illegalIds]),
vecTxtQ(sanitizedIds[illegalIds])
)
);
}
return(sanitizedIds);
}
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.