tests/testthat/test-measure_nodes.R

In netrics: Many Ways to Measure and Classify Membership for Networks, Nodes, and Ties

test_that("node_by_homophily works with vector attribute (e.g. community assignment)", {
  attr_vec <- node_in_community(data_objs[["attribute"]])
  result <- node_by_homophily(data_objs[["attribute"]], attr_vec)
  expect_s3_class(result, "node_measure")
  expect_length(result, manynet::net_nodes(data_objs[["attribute"]]))
})

node_meas <- funs_objs[grepl("node_by_", names(funs_objs))]
for(fn in names(node_meas)) {
  for (ob in names(data_objs)) { 
    test_that(paste(fn, "works on", ob), {
      skip_if(grepl("multideg", fn))
      skip_if(grepl("equivalency", fn) && ob == "labelled")
      if(grepl("diversity|richness|heterophily|homophily", fn)){
        if(ob == "attribute")
          expect_s3_class(node_meas[[fn]](data_objs[[ob]], "group"), "node_measure") else
            succeed("Only used for attribute objects")
      } else if(grepl("adopt|recovery|exposure",fn)){
        if(ob == "diffusion")
          expect_s3_class(node_meas[[fn]](data_objs[[ob]]), "node_measure") else
            succeed("Only used for diffusion objects")
      } else if(grepl("posneg",fn)){
        if(ob == "signed")
          expect_s3_class(node_meas[[fn]](data_objs[[ob]]), "node_measure") else
            succeed("Only used for signed objects")
      } else if(grepl("distance",fn)){
          expect_s3_class(node_meas[[fn]](data_objs[[ob]], 1, 2), "node_measure")
      } else {
        expect_s3_class(node_meas[[fn]](data_objs[[ob]]), "node_measure")
      }
    })
  }
}