Running ‘testthat.R’ [15s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tabshiftr)
  > 
  > test_check("tabshiftr")
  [ FAIL 12 | WARN 0 | SKIP 3 | PASS 259 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (3)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-02_column_mismatch.R:50:3'): recognise a distinct variable that is not available for every cluster ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-02_column_mismatch.R:50:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-07_clusters.R:18:3'): vertical clusters of otherwise tidy data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-07_clusters.R:18:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-07_clusters.R:34:3'): horizontal clusters of otherwise tidy data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-07_clusters.R:34:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-07_clusters.R:49:3'): vertical cluster with a wide identifying variable (and a single listed observed variable that is missing) ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-07_clusters.R:49:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-07_clusters.R:80:3'): vertical clusters with a listed observed variable ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-07_clusters.R:80:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-07_clusters.R:100:3'): vertical clusters with a listed observed variable and an implicit variable ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-07_clusters.R:100:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-filter.R:121:3'): filter rows from clusters ────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-filter.R:121:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-filter.R:140:3'): filter rows from clusters with listed observed variables ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─tabshiftr::reorganise(input = input, schema = schema) at test-filter.R:140:2
   2.   └─tabshiftr::validateSchema(input = input, schema = schema)
   3.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
   4.     └─tibble:::`[<-.tbl_df`(...)
   5.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   6.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.           ├─base::withCallingHandlers(...)
   8.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-find.R:51:3'): .find cluster positions based on regular expressions ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-find.R:51:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-find.R:101:3'): relative positions in clusters ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-find.R:101:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-find.R:151:3'): vertical clusters with a listed observed variable and an implicit variable ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabshiftr:::.expect_valid_table(...) at test-find.R:151:2
    2. │ └─testthat::expect_identical(...)
    3. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. └─tabshiftr::reorganise(input = input, schema = schema)
    6.   └─tabshiftr::validateSchema(input = input, schema = schema)
    7.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-find.R:166:3'): vertical cluster with a wide identifying variable that has uneven number of wide columns ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─tabshiftr::reorganise(input = input, schema = schema) at test-find.R:166:2
   2.   └─tabshiftr::validateSchema(input = input, schema = schema)
   3.     ├─base::`[<-`(`*tmp*`, varProp$row[j], varProp$col[j], value = `<lgl>`)
   4.     └─tibble:::`[<-.tbl_df`(...)
   5.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   6.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.           ├─base::withCallingHandlers(...)
   8.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 12 | WARN 0 | SKIP 3 | PASS 259 ]
  Error: Test failures
  Execution halted