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 Oct. 17, 2023, 5:11 p.m.