R/print.plant3d.R

In YplantQMC: Plant architectural analysis with Yplant and QuasiMC.

print.plant3d <- function(x, hint=TRUE, ...){

	cat("Yplant - plant object (class 'plant3d')\n\n")
	cat(paste(c(rep("-",30),"\n"),collapse=""))
	cat("Constructed from", x$inputformat, "file format\n")
	if(x$inputformat == "P")cat("Input files used :", x$pfile, x$lfile, "\n\n")
	if(x$inputformat == "Q"){
		if(is.character(x$qdata))cat("Input file used :", x$qdata, "\n\n")
		if(!all(is.na(x$qfile)))cat("Input files used :\n", x$qfile,"\n", x$lfile, "\n\n")
	}
	
	if(x$inputformat == "P")cat("Plant has", x$nleaves, "leaves on", nrow(x$pdata), "nodes.\n")
	if(x$inputformat == "Q")cat("Plant has", x$nleaves, "leaves.\n")
	# does not work..
	# plantname <- deparse(match.call()[-1])
	
	if(hint)cat("To generate a detailed summary of your plant, use the summary() function.\n")
}