R/getGrobArgs.R

getGrobArgs <- function (grob) {
  args <- lapply(names(grob), FUN = function(x) {grob[[x]]})
  args <- setNames(args, names(grob))
  args
}
great-northern-diver/loon.shiny documentation built on Oct. 24, 2022, 3:32 a.m.