if (FALSE) {
local(envir=.PBSmodEnv,expr={
cwd = getwd(); setwd(tempdir())
test <- list(a=10,b=euro,c=view(WorldPhones),d=view(USArrests))
writeList(test,"test.txt",format="P",
comments=" Scalar, Vector, Matrix, Data Frame")
openFile("test.txt")
setwd(cwd)
})
local(envir=.PBSmodEnv,expr={
cwd = getwd(); setwd(tempdir())
##Example of dimnames for Arrays
dimnames(Titanic)
writeList( list( Titanic ), format="P")
setwd(cwd)
})
}
Run the code above in your browser using DataLab