R/print.sprof.R

In sprof: Profiling, timing and optimisation utilities

#$HeadURL: file:///srv/svn/sintro/pkg/sprof/R/print.sprof.R $
#$Id: print.sprof.R 178 2013-07-23 19:13:13Z gsawitzki $
#$Date: 2013-07-23 21:13:13 +0200 (Tue, 23 Jul 2013) $
#$Author: gsawitzki $
#$Revision: 178 $
#\encoding{utf8}
# setwd("")
#!
# setwd("")
# source('~/Documents/lectures/src/insider/profile/sprof/pkg/R/print_prof.R', chdir = TRUE)
#! To Do
#!



print_nodes <- function(x){
	sn <- summary_nodes(x)
	print(sn)
	invisible(sn)
}

print_stacks <- function(x){
	ss <- summary_stacks(x)
	print(ss)
	invisible(ss)
	}

#print_terminals<- function(x){
#	table(x$stacks$stackleafnodes)
#	x$stacks$refcount
#}
	

print_profiles <- function(x){
	sp <- summary_profiles(x)
	print(sp)
	invisible(sp)
}

print.sprof <- function(x,...){
	print_nodes(x)
	print_stacks(x)
	print_profiles(x)
	invisible(x)
}