Nothing
gethashtag <- function(x){
hashback <- gsub(" .*","",gsub(".*#","",x))
return(hashback)
}
#tester <- c("dsaf;jkldsaf #hi adflkj","asdfljk;dfsjl; #hi adflkadfs"," adsf;kldsaf #Transform",
# "adlkjadfs dafsladfsjf #analyze", "adslkjdas #analyze dfasfd", "adsf;jklafds #read aljkdfa",
# "jladsfldfj;as adsffdsa #report")
#tester <- sample(tester,50,replace=TRUE)
#avs <- abbreviate(toupper(gethashtag(tester)),minlength=1)
#guidedf <- unique(data.frame(Symbol=avs,Tag=toupper(gethashtag(tester))))
#ibrary(ggplot2)
#ggplot(cars,aes(x=speed,y=dist))+geom_point()+annotate("text",x=cars[,1],y=cars[,2],label=avs,family="serif")
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.