Displaying 1 result from an estimated 1 matches for "currt".
Did you mean:
curr
2008 Dec 18
1
R2HTML and output from a function
Dear list,
I am trying to construct a report function that would go through all
the object in the current environment and print them in HTML form.
What I have got is:
dataReport <- function(){
#First tables
tabs <- ls(sys.frame(), pattern=".*table")
for(currT in tabs){
cat("\n\n")
print(currT)
if(length(dim(get(currT))) > 2){
#We have to use ftable
require(Hmisc)
print(ftable(get(currT)))
}
else{
print(get(currT))
print(chisq.test(get(currT)))
}
}
#Next, the lme models
mods <- ls(sys.frame(), pattern...