Nothing
cleanCode <- function(x) {
codeDelimiters <- rock::opts$get("codeDelimiters");
inductiveCodingHierarchyMarker <-
rock::opts$get("inductiveCodingHierarchyMarker");
x <-
gsub(
escapeRegexCharacterClass(codeDelimiters[1]),
"",
x
);
x <-
gsub(
escapeRegexCharacterClass(codeDelimiters[2]),
"",
x
);
x <- trimws(x);
x <-
gsub(
paste0("^", inductiveCodingHierarchyMarker),
"",
x
);
x <-
gsub(
paste0(inductiveCodingHierarchyMarker, "$"),
"",
x
);
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.