Running ‘testthat.R’ [113s/121s]
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")
  5 Egos/ Ego Networks 
  98 Alters 
  Min. Netsize 18 
  Average Netsize 19.6 
  Max. Netsize 24 
  Average Density 0.502307615406354 
  
  Ego sampling design:
  Independent Sampling design (with replacement)
  Called via srvyr
  Sampling variables:
   - ids: `1`
   - weights: sampling_weight
  Data variables: .egoID (dbl), sex (chr), age (fct), age.years (int), country
    (chr), income (dbl), sampling_weight (dbl), avg_nts (dbl)
  Alter survey design:
    Maximum nominations: Inf 
  5 Egos/ Ego Networks 
  98 Alters 
  Min. Netsize 18 
  Average Netsize 19.6 
  Max. Netsize 24 
  Average Density 0.502307615406354 
  
  Ego sampling design:
  Independent Sampling design (with replacement)
  Called via srvyr
  Sampling variables:
   - ids: `1`
   - weights: sampling_weight
  Data variables: .egoID (dbl), sex (chr), age (fct), age.years (int), country
    (chr), income (dbl), sampling_weight (dbl), avg_nts (dbl)
  Alter survey design:
    Maximum nominations: Inf 
  3 Egos/ Ego Networks 
  46 Alters 
  Min. Netsize 13 
  Average Netsize 15.3333333333333 
  Max. Netsize 17 
  Average Density 0.500980392156863 
  Alter survey design:
    Maximum nominations: Inf 
  6 Egos/ Ego Networks 
  45 Alters 
  Min. Netsize 4 
  Average Netsize 7.5 
  Max. Netsize 11 
  Average Density 0.4996632996633 
  Alter survey design:
    Maximum nominations: Inf 
  5 Egos/ Ego Networks 
  16 Alters 
  Min. Netsize 4 
  Average Netsize 4 
  Max. Netsize 4 
  Average Density 1.33333333333333 
  Alter survey design:
    Maximum nominations: Inf 
  4 Egos/ Ego Networks 
  16 Alters 
  Min. Netsize 4 
  Average Netsize 4 
  Max. Netsize 4 
  Average Density 1.33333333333333 
  Alter survey design:
    Maximum nominations: Inf 
  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: 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: ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-conversions.R:65:13): as_network works with graph.attrs ───────
  `res <- as_network(x = e, graph.attrs = c(".egoID", "income"))` threw an error.
  Message: Problem with `mutate()` column `from`.
  ℹ `from = as.character(...)`.
  ✖ invalid 'labels'; length 0 should be 1 or 2
  Class:   dplyr:::mutate_error/dplyr_error/rlang_error/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) 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 = e, graph.attrs = c(".egoID", "income"))
    7. │ └─base::mapply(FUN = network.data.frame, x$.aaties, x$.alts, SIMPLIFY = FALSE)
    8. │   └─(function (aaties, alts) ...
    9. │     └─`%>%`(...)
   10. ├─dplyr::select(., -V1, -V2)
   11. ├─dplyr::left_join(., aaties, by = c(from = ".srcID", to = ".tgtID"))
   12. ├─dplyr::mutate(...)
   13. ├─dplyr:::mutate.data.frame(...)
   14. │ └─dplyr:::mutate_cols(.data, ..., caller_env = caller_env())
   15. │   ├─base::withCallingHandlers(...)
   16. │   └─mask$eval_all_mutate(quo)
   17. ├─base::factor(...)
   18. │ └─base::stop(...)
   19. └─base::.handleSimpleError(...)
   20.   └─dplyr:::h(simpleError(msg, call))
  ── Error (test-conversions.R:68: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:68: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]])
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 207 ]
  Error: Test failures
  Execution halted