Commit a5d75218 authored by houyun's avatar houyun
Browse files

fixed bugs: not select colour based on k

parent 081a9210

R/wrap-annotate.R

+1 −1
Original line number Diff line number Diff line
@@ -172,7 +172,7 @@ gen_hc_bar <- function(hc, 
  if (is.null(colour)) {

    colour <- sample(grDevices::colors(TRUE), 2)

  }

  colour <- rep_len(colour, 2)

  colour <- rep_len(colour, k)



  if (side == "x") {

    df <- tibble::tibble(x = names(tree),

CRA Git | Maintained and supported by SUSTech CRA and CCSE