R/utils.R

In montilab/shine: Structure Learning for Hierarchical Networks

#' Repeatable vector of distinct colors
#' 
#' @keywords internal
rcolors <- function(reps=1) {
    rep(c("#BDBE4D","#E8EE77","#CA874D","#945DCF","#76DDEC",
          "#5BDE78","#D6A0E8","#CCADB5","#719DEB","#819F9E",
          "#8671B3","#E6ECDC","#68C495","#EBEAB7","#DDEC3C",
          "#6AA03A","#D782E9","#E29B91","#ECBD42","#E294B6",
          "#E176C6","#EFD7E8","#6D79E5","#AF9D7A","#97E088",
          "#6C9A61","#56EB4D","#61F0BA","#B750E5","#9DB6E3",
          "#7037E4","#6FEDD7","#785867","#D0B6E2","#E438E9",
          "#DCC27C","#E05E38","#A5E753","#56B7E4","#D7EA97",
          "#C0D0E0","#B7E7DE","#6283A0","#EAC5A8","#D73D7B",
          "#61BDBB","#CE636D","#E34CC6","#B4EDBF","#ABC298"), reps)
}