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)))))
}

Try the ursa package in your browser

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

ursa documentation built on June 22, 2024, 6:47 p.m.