Nothing
chemin <- searchpaths()[grep("rbsb",searchpaths())];
chemin <- paste(chemin,"/files/",sep="");
# script test for easyp3cut et al.
#
# 09_10_12
#
#
form3titre("Testing the use of 'easyp3cut' and 'easyp3stickback'");
# preparing the expressions to parse
ex <- character(0);
ex[1] <- "(A)+{B}+[C]";
# parsing and recompacting
for (ii in bf(ex)) {
res0 <- ex[ii];
form3line(wid=1);
form3titre("Initial Expression",0);
print(res0);
res1 <- easyp3cut(ex[ii]);
form3titre("Decomposed Expression",0);
print(res1);
res2 <- easyp3stickback(res1);
form3titre("Recomposed Expression",0);
print(res2);
form3line(wid=1);
}
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.