R/legend_align.R

'legend_align' <- function(obj){
  # c(unlist(sapply(obj,function(x){names(x$colortable)})))
   c(unlist(sapply(obj,function(x) names(ursa_colortable(x)))))
}
nplatonov/ursa documentation built on May 8, 2024, 6:02 p.m.