Running ‘testthat.R’ [49s/68s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(egor)
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  Loading required package: tibble
  > library(dplyr)
  > 
  > test_check("egor")
  Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: Filtering out empty alter entries using provided network size values: Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: Filtering out empty alter entries using provided network size values: Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: Filtering out empty alter entries using provided network size values: Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: 3 Egos/ Ego Networks 
  42 Alters 
  Min. Netsize 10 
  Average Netsize 14 
  Max. Netsize 19 
  Average Density 0.500404858299595 
  
  Ego sampling design:
     NULLAlter survey design:
    Maximum nominations: Inf 
  6 Egos/ Ego Networks 
  42 Alters 
  Min. Netsize 4 
  Average Netsize 7 
  Max. Netsize 12 
  Average Density 0.54023569023569 
  
  Ego sampling design:
     NULLAlter survey design:
    Maximum nominations: Inf 
  5 Egos/ Ego Networks 
  12 Alters 
  Min. Netsize 4 
  Average Netsize 4 
  Max. Netsize 4 
  Average Density 1.77777777777778 
  
  Ego sampling design:
     NULLAlter survey design:
    Maximum nominations: Inf 
  4 Egos/ Ego Networks 
  16 Alters 
  Min. Netsize 4 
  Average Netsize 4 
  Max. Netsize 4 
  Average Density 1.33333333333333 
  
  Ego sampling design:
     NULLAlter survey design:
    Maximum nominations: Inf 
  EI-Index: age
  EI-Index: sex
  EI-Index: sex
  EI-Index: int_var
  EI-Index: female
  EI-Index: female
  Sorting data by egoID: Transforming alters data to long format: Transforming wide dyad data to edgelist: Filtering out empty alter entries using provided network size values: ══ Skipped tests ═══════════════════════════════════════════════════════════════
  ● Sys.info()["nodename"] == "Tills-MacBook-Pro.local" is not TRUE (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test_conversions.R:5:13): as_tibble and other conversions work ─────
  `{ ... }` threw an error.
  Message: attempt to set index 0/0 in SET_VECTOR_ELT
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_conversions.R:5:12
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─egor::as_network(e) test_conversions.R:8:14
    7.   └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    8.     └─(function (aaties, alts) ...
    9.       └─network::network(mt, directed = FALSE)
   10.         ├─network::as.network(...)
   11.         └─network::as.network.matrix(...)
   12.           └─network::network.initialize(...)
   13.             └─network::set.vertex.attribute(g, "na", rep(FALSE, n), 1:n)
  ── Failure (test_conversions.R:44:13): as_network works. ───────────────────────
  default arguments threw an error.
  Message: attempt to set index 0/0 in SET_VECTOR_ELT
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(network::as.network(e), NA, label = "default arguments") test_conversions.R:44:12
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─network::as.network(e)
    7. └─egor:::as.network.egor(e)
    8.   └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    9.     └─(function (aaties, alts) ...
   10.       └─network::network(mt, directed = FALSE)
   11.         ├─network::as.network(...)
   12.         └─network::as.network.matrix(...)
   13.           └─network::network.initialize(...)
   14.             └─network::set.vertex.attribute(g, "na", rep(FALSE, n), 1:n)
  ── Failure (test_conversions.R:49:13): as_network works. ───────────────────────
  include.ego/ego.attrs/ego.alter.weights threw an error.
  Message: attempt to set index 0/0 in SET_VECTOR_ELT
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_conversions.R:49:12
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─egor::as_network(...)
    7.   └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    8.     └─(function (aaties, alts) ...
    9.       └─network::network(mt, directed = FALSE)
   10.         ├─network::as.network(...)
   11.         └─network::as.network.matrix(...)
   12.           └─network::network.initialize(...)
   13.             └─network::set.vertex.attribute(g, "na", rep(FALSE, n), 1:n)
  ── Failure (test_conversions.R:65:13): as_network works with ego as tbl_svy ────
  `as_network(x = egor32)` threw an error.
  Message: attempt to set index 0/0 in SET_VECTOR_ELT
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(as_network(x = egor32), NA) test_conversions.R:65:12
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─egor::as_network(x = egor32)
    7.   └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    8.     └─(function (aaties, alts) ...
    9.       └─network::network(mt, directed = FALSE)
   10.         ├─network::as.network(...)
   11.         └─network::as.network.matrix(...)
   12.           └─network::network.initialize(...)
   13.             └─network::set.vertex.attribute(g, "na", rep(FALSE, n), 1:n)
  ── Failure (test_conversions.R:76:13): as_network works with graph.attrs ───────
  `res <- as_network(e, graph.attrs = c(".egoID", "income"))` threw an error.
  Message: attempt to set index 0/0 in SET_VECTOR_ELT
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_conversions.R:76:12
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─egor::as_network(e, graph.attrs = c(".egoID", "income"))
    7.   └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    8.     └─(function (aaties, alts) ...
    9.       └─network::network(mt, directed = FALSE)
   10.         ├─network::as.network(...)
   11.         └─network::as.network.matrix(...)
   12.           └─network::network.initialize(...)
   13.             └─network::set.vertex.attribute(g, "na", rep(FALSE, n), 1:n)
  ── Error (test_conversions.R:79:13): as_network works with graph.attrs ─────────
  Error: object 'res' not found
  Backtrace:
      █
   1. ├─testthat::expect_true(all(c("income", ".egoID") %in% network::list.network.attributes(res[[1]]))) test_conversions.R:79:12
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─c("income", ".egoID") %in% network::list.network.attributes(res[[1]])
   5. └─network::list.network.attributes(res[[1]])
   6.   └─network::is.network(x)
  
  [ FAIL 6 | WARN 0 | SKIP 1 | PASS 157 ]
  Error: Test failures
  Execution halted