#
#
# E.Korsching   2024



# memory usage

cat.out <- function(file="out"){
	# write cat() text lines into PDF file: name without extension
	require(rmarkdown)
	fx <- paste(file,".Rmd",sep="")
	cat("---\n", file=fx, sep="", append=F)
	cat("fontsize: 12pt\n", file=fx, sep="", append=T)
	cat("---\n", file=fx, sep="", append=T)
	cat("\n", file=fx, sep="", append=T)
	
	cat("```", file=fx, append=T)		# "```" R markdown features
	cat("\nGlobal variables\n", file=fx, sep="", append=T)
	for(obj in ls(envir=.GlobalEnv)){
		cat("\n",obj, " - ",format(object.size(get(obj)), units="Mb"), sep="", file=fx, append=T)
	}
	cat("\n```", file=fx, append=T)
	render(fx, "pdf_document")
	file.remove(fx)
	return()
}

#cat.out(file="memory_usage_sparse_matrix")