Closed henriquesposito closed 8 months ago
DV <- lapply(ison_starwars, function(x) to_egos(x)$DARTH VADER) DV <- DV[lengths(DV) != 0] DV <- lapply(DV, function(x) x %>% mutate(shape = ifelse(name == "DARTH VADER", "square", "circle"), color = ifelse(name == "DARTH VADER", "blue", "red"))) autographd(tlist = DV, node_size = 6, node_color = "color", node_shape = "shape")
DARTH VADER
The above does not shape or color nodes as expected.
This has been fixed and the function was updated to be both more flexible and efficient in setting variables to aesthetics.
DV <- lapply(ison_starwars, function(x) to_egos(x)$
DARTH VADER
) DV <- DV[lengths(DV) != 0] DV <- lapply(DV, function(x) x %>% mutate(shape = ifelse(name == "DARTH VADER", "square", "circle"), color = ifelse(name == "DARTH VADER", "blue", "red"))) autographd(tlist = DV, node_size = 6, node_color = "color", node_shape = "shape")The above does not shape or color nodes as expected.