R/set_node_size.R

In RajLabMSSM/echodeps: echoverse module: Create package dependency graphs

set_node_size <- function(g,
                          meta,
                          pkg,
                          node_size,
                          default_size=1){

    if(is.character(node_size)){
        node_size <- node_size[node_size %in% names(meta)]
    }
    if(length(node_size)==0){
        igraph::V(g)$value <- ifelse(names(igraph::V(g))==pkg, 40, 30)
    } else {
        v <- meta[names(igraph::V(g)),][[node_size]]
        igraph::vertex_attr(g,name = "value") <- ifelse(is.na(v),default_size,v)
    }
    return(g)
}