Nothing
#
# 13_07_09 13_07_10 13_10_31 13_11_04 13_12_27
#
library(rbsa);
#
source("basic.code.r");
source("text.code.r");
source("objects.code.r");
aa <- text2texts6otags(documair0text1,
list(uu=list(v="1", t="d1"),
vv=list(v="7", t="d7")));
print(aa);
pause("text2texts6otags");
#
uu <- c("12345678901234567890123456789012345678901234567890",
"12345678901234567890123456789012345678901234567890",
"12345678901234567890123456789012345678901234567890");
vv <- matrix(c(1,3,5,
1,8,15,
3,20,27),
ncol=3,byrow=TRUE);
ww <- texts4text(uu,vv);
print(ww);
pause("texts4text (1)");
uu <- paste(letters,collapse=""); UU <- toupper(uu);
ww <- matrix(c(1,2,2,1,12,13,2,5,10),ncol=3,byrow=TRUE);
texts4text(c(uu),ww[1,,drop=FALSE]);
texts4text(c(uu),ww[1:2,]);
texts4text(c(uu,UU),ww);
texts4text(c(uu),ww);
texts4text(c(uu),ww[1,,drop=FALSE],addbeg=FALSE);
texts4text(c(uu),ww[1,,drop=FALSE],addbeg=FALSE,addend=FALSE);
#
pause("texts4text (2)");
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.