Treeplot: possible to add border color around tippoints for a feature/column in enrichResult?

[mauritsunkel]

Trying to add a fill as test to the enrichplot:::group_tree() code below doesn't seem to work:

if (add_tippoint) {
    print(color)
    p <- p + ggnewscale::new_scale_colour() +
      geom_tippoint(aes(color = color, size = count, fill = color )) +
      scale_colour_continuous(low="red", high="blue", name = color,
                              guide = guide_colorbar(reverse = TRUE))

Any other possibilities I could look into otherwise?