> Michael writes:
> I can use data() to find the available datasets in a package, but I'd 
> like to extract and display some additional
> information for each dataset  than what is provided by data(), e.g., 
> class() and dim() for datasets for which
> these are available.
> ...
> for all datasets in Item, giving a display like
> 
> Item      class       dim     Title
> Abortion  table       2x2x2   Abortion Opinion Data
> Mental    data.frame  24x2    Mental impariment and parents SES

This seems to work on your example:
require('vcdExtra')
ds <- as.data.frame(data(package="vcdExtra")$results[,c('Item','Title')], 
stringsAsFactors=FALSE)
ds$dim <- lapply(ds$Item, function(x) { paste(dim(get(x)), collapse='x') } 
)
ds$class <- lapply(ds$Item, function(x) { class(get(x)) } )
ds <- ds[c('Item','class','dim','Title')]

Thanks for the fun exercise.  I've just started looking at the various 
'apply-oid' functions, having spent much of my time with aggregate() and 
perhaps having my imagination stunted.

cur
-- 
Curt Seeliger, Data Ranger
Raytheon Information Services - Contractor to ORD
seeliger.curt@epa.gov
541/754-4638


	[[alternative HTML version deleted]]

