'apply.gdsn' + 'append.gdsn'

apply.gdsn <- function(node, margin, FUN, selection=NULL,
	as.is=c("list", "integer", "double", "character", "none", "gdsnode"),
	var.index=c("none", "relative", "absolute"), target.node=NULL,
	useraw=FALSE, ...)