Nothing
`hash` <-
function(x,char='#'){
con <- file()
sink(con)
result <- try(x)
if(!inherits(result,"try-error"))print(result)
comments <- paste(char,readLines(con))
sink(NULL)
close(con)
writeLines(comments)
}
naInContext <- function(x,context,search){
guilty <- !complete.cases(x[,search])
keys <- interaction(x[,context])
x[keys %in% keys[guilty],]
}
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.