inst/basic.test1.r

In documair: Automatic Documentation for R packages

#
# 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)");