R/layers.R

In kardinal-eros/sabotag-tools: Tools of the Salzburger Botanische Arbeitsgemeinschaft (SaBotAg)

if (!isGeneric("layers")) {
	setGeneric("layers", function (object, ...) standardGeneric("layers"))
}

setMethod("layers",
	signature(object = "Background"),
	function (object, ...) {
		slot(object, "layers")
	}
)