Running ‘testthat.R’ [3s/5s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > require(testthat);
  Loading required package: testthat
  > testthat::test_check("psyverse");
  Loading required package: psyverse
  dct:
    version: 0.2.6
    id: prfx_7nbk8h3m
    label: lbl
    date: '2023-03-20'
    dct_version: '1'
    ancestry: ''
    retires: ''
    definition:
      definition: def
    measure_dev:
      instruction: ''
    measure_code:
      instruction: ''
    aspect_dev:
      instruction: ''
    aspect_code:
      instruction: ''
    comments: ''
    rel: ~
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-loading-dct-specs-from-files.R:13:3'): a dct specification from a file with a single dct specification is loaded correctly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─psyverse::load_dct_specs(file.path(exampleDir, "intention_73dnt604.dct.yaml")) at test-loading-dct-specs-from-files.R:13:2
    2. │ └─psyverse::parse_dct_specs(dctSpecs, headingLevel = headingLevel)
    3. │   └─psyverse::apply_graph_theme(...)
    4. │     └─DiagrammeR::add_global_graph_attrs(...)
    5. │       └─... %>% dplyr::select(attr, value, attr_type)
    6. ├─dplyr::select(., attr, value, attr_type)
    7. ├─dplyr::transmute(...)
    8. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    9. └─dplyr:::full_join.data.frame(...)
   10.   └─dplyr:::join_mutate(...)
   11.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   13.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.           ├─base::withCallingHandlers(...)
   16.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-loading-dct-specs-from-files.R:44:3'): a directory with dct specifications is loaded correctly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─psyverse::load_dct_dir(exampleDir) at test-loading-dct-specs-from-files.R:44:2
    2. │ └─psyverse::parse_dct_specs(...)
    3. │   └─psyverse::apply_graph_theme(...)
    4. │     └─DiagrammeR::add_global_graph_attrs(...)
    5. │       └─... %>% dplyr::select(attr, value, attr_type)
    6. ├─dplyr::select(., attr, value, attr_type)
    7. ├─dplyr::transmute(...)
    8. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    9. └─dplyr:::full_join.data.frame(...)
   10.   └─dplyr:::join_mutate(...)
   11.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   13.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.           ├─base::withCallingHandlers(...)
   16.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-saving-dct-specs.R:28:3'): a dct specification can be saved ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─psyverse::load_dct_specs(file = tmpFile) at test-saving-dct-specs.R:28:2
    2. │ └─psyverse::parse_dct_specs(dctSpecs, headingLevel = headingLevel)
    3. │   └─psyverse::apply_graph_theme(...)
    4. │     └─DiagrammeR::add_global_graph_attrs(...)
    5. │       └─... %>% dplyr::select(attr, value, attr_type)
    6. ├─dplyr::select(., attr, value, attr_type)
    7. ├─dplyr::transmute(...)
    8. ├─dplyr::full_join(., global_attrs_to_add, by = c("attr", "attr_type"))
    9. └─dplyr:::full_join.data.frame(...)
   10.   └─dplyr:::join_mutate(...)
   11.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   13.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.           ├─base::withCallingHandlers(...)
   16.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 0 ]
  Error: Test failures
  Execution halted