# TODO: Add comment
# 
# Author: E.Korsching Jul 17, 2014
###############################################################################


# list data objects or functions in the given workspace

list.wso <- function(type="d"){
	# list data objects ("d") or functions ("f") in the given workspace
	#  wso: workspace object
	if(type=="d"){
		return( ls()[ sapply(ls(),function(x){!is.function(get(x))}) ] )
	}
	if(type=="f"){
		return( ls()[ sapply(ls(),function(x){is.function(get(x))}) ] )
	}
}