Nothing
trimquotes <- function(x, y) {
pattern <- "^\"|\"$|^'|'$"
if (grepl(pattern, x)) {
msg <- "filter_sensitive_data: leading & trailing quotes trimmed from '"
warning(paste0(msg, y, "'"), call.=FALSE)
}
return(gsub(pattern, "", x))
}
# filter_sensitive_data replacement
# FIXME: eventually move to higher level so that this happens
# regardless of serializer
sensitive_put_back <- function(x) {
if (!is.null(vcr_c$filter_sensitive_data)) {
fsd <- vcr_c$filter_sensitive_data
for (i in seq_along(fsd)) {
x <- gsub(names(fsd)[i], fsd[[i]], x, fixed = TRUE)
}
}
return(x)
}
sensitive_remove <- function(x) {
fsd <- vcr_c$filter_sensitive_data
if (!is.null(fsd)) {
for (i in seq_along(fsd)) {
if (nchar(fsd[[i]]) > 0) {
strg <- trimquotes(fsd[[i]], names(fsd)[i])
x <- gsub(strg, names(fsd)[i], x, fixed = TRUE)
}
}
}
fsdr <- vcr_c$filter_sensitive_data_regex
if (!is.null(fsdr)) {
for (i in seq_along(fsdr)) {
if (nchar(fsdr[[i]]) > 0) {
x <- gsub(fsdr[[i]], names(fsdr)[i], x, fixed = FALSE)
}
}
}
return(x)
}
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.