R/layersListObj.R

Defines functions layersListObj

Documented in layersListObj

#' @title layersListObj
#' @description return named list for gg layers
#' @keywords internal
layersListObj <- function(obj, lbl) {
  a <- lapply(obj, function(x) {
    lapply(x$layers, function(y) y)
  })
  names(a) <- lbl
  a
}

Try the ggedit package in your browser

Any scripts or data that you put into this service are public.

ggedit documentation built on July 8, 2020, 5:34 p.m.