R/constants.R

In schochastics/snahelper: 'RStudio' Addin for Network Analysis and Visualization

input.width <- "50%"
input.width2 <- "90%"
line.height <- "70px"
heading.height <- "30px"

layouts.available <- list(
    "graphlayouts" = c(
        "Stress" = "graphlayouts::layout_with_stress",
        "Backbone" = "graphlayouts::layout_as_backbone",
        "Radial focus" = "graphlayouts::layout_with_focus",
        "Radial centrality" = "graphlayouts::layout_with_centrality"
    ),
    "igraph" = c(
        "Circle" = "layout_in_circle", "Nicely" = "layout_nicely",
        "Random" = "layout_randomly",
        "Fruchterman-Reingold" = "layout_with_fr",
        "MDS" = "layout_with_mds",
        "Sugiyama" = "layout_with_sugiyama",
        "drl" = "layout_with_drl",
        "gem" = "layout_with_gem",
        "graphopt" = "layout_with_graphopt",
        "kk" = "layout_with_kk",
        "lgl" = "layout_with_lgl"
    )
)

colours.available <- c(colors()[!grepl("grey", colors())])
fonts.available <- names(pdfFonts())

AttrNameImport <- paste0(
    "vnames <- get.vertex.attribute(g,'name')\n",
    "identCol <- which(apply(attrs,2,function(x) all(x%in%vnames)))[1]\n",
    "anames <- attrs[,identCol]\n",
    "attrs <- attrs[,-identCol,drop = FALSE]\n",
    "perm <- match(vnames,anames)\n",
    "for(attr in names(attrs)){\n",
    "   g <- set_vertex_attr(g,name = attr,value = attr[[attr]][perm])\n",
    "}\n"
)

AttrRowImport <- paste0(
    "for(attr in names(attrs)){\n",
    "   g <- set_vertex_attr(g,name = attr,value = attrs[[attr]])\n",
    "}\n"
)