Nothing
stripTags <-
function(Cell){
Cell <- strsplit(Cell, "</*[A-Za-z][^>]*>")[[1]]
Cell <- paste(Cell, collapse=" ")
Cell <- gsub(" ", " ", Cell)
Cell <- gsub(" +", " ", Cell)
Cell <- gsub("^ ", "", Cell)
Cell <- gsub(" $", "", Cell)
return(Cell)
}
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.