Fish plot polygon bug with 3 children

[whelena]

phy.dt <- data.table(
    parent = c(NA, 1, 1, 2, 1),
    label = c(1:5),
    CP = c(1.2, 0.5, 0.4, 0.2, 0.3)
    );
SRCGrob(phy.dt)

Here, node 1 has 3 children: 2,3,5. Running SRCgrob() results in this error: Error in if (v$id == siblings$id[which.min(siblings$x.mid)]) { : the condition has length > 1`

[whelena]

I see that this is an intended behaviour. Marking as future enhancement instead