Nothing
FindReplace =
function(file, find, replace) {
if (file.exists(file)) {
cat("\n", file = file, append = TRUE) # otherwise problems on
# readLines() below
OldText <- readLines(con = file)
NoLines = length(OldText)
if (NoLines > 2) {
if (all(OldText[c(NoLines - 1, NoLines)] == "\n")) {
NoLines = NoLines - 1
}
}
writeLines(gsub(find, replace, OldText, fixed=TRUE)[1:NoLines], con = file)
} else {
.FileDoesNotExist()
}
return(invisible(NULL))
}
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.