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 Feb. 26, 2020, 3:01 p.m.