Running ‘testthat.R’ [18s/29s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(corrr)
  > 
  > test_check("corrr")
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'everything'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'everything'
  Correlation computed with
  * Method: 'spearman'
  * Missing treated using: 'pairwise.complete.obs'
  Non-numeric variables removed from input: `manufacturer`, `model`, `trans`, `drv`, `fl`, and `class`
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Non-numeric variables removed from input: `manufacturer`, `model`, `trans`, `drv`, `fl`, and `class`
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  * Method: 'pearson'
  * Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  Correlation computed with
  • Method: 'pearson'
  • Missing treated using: 'pairwise.complete.obs'
  [ FAIL 5 | WARN 36 | SKIP 0 | PASS 91 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-plots.R:29:3'): autoplot works ─────────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(autoplot(d), "ggplot") at test-plots.R:29:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ggplot2::autoplot(d)
    5. └─corrr:::autoplot.cor_df(d)
    6.   ├─corrr::shave(object, upper = FALSE)
    7.   └─corrr:::shave.cor_df(object, upper = FALSE)
    8.     ├─base::`[<-`(`*tmp*`, lower.tri(x), value = `<lgl>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, lower.tri(x), value = `<lgl>`)
   10.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-shave.R:6:3'): Shave upper ─────────────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-shave.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.matrix(shave(d, upper = TRUE))
    5. ├─corrr::shave(d, upper = TRUE)
    6. └─corrr:::shave.cor_df(d, upper = TRUE)
    7.   ├─base::`[<-`(`*tmp*`, upper.tri(x), value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, upper.tri(x), value = `<lgl>`)
    9.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   10.       ├─base::withCallingHandlers(...)
   11.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-shave.R:13:3'): Shave lower ────────────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-shave.R:13:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.matrix(shave(d, upper = FALSE))
    5. ├─corrr::shave(d, upper = FALSE)
    6. └─corrr:::shave.cor_df(d, upper = FALSE)
    7.   ├─base::`[<-`(`*tmp*`, lower.tri(x), value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, lower.tri(x), value = `<lgl>`)
    9.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   10.       ├─base::withCallingHandlers(...)
   11.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-shave.R:20:3'): Shave all ──────────────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-shave.R:20:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::as.matrix(shave(shave(d, upper = TRUE), upper = FALSE))
    5. ├─corrr::shave(shave(d, upper = TRUE), upper = FALSE)
    6. ├─corrr::shave(d, upper = TRUE)
    7. └─corrr:::shave.cor_df(d, upper = TRUE)
    8.   ├─base::`[<-`(`*tmp*`, upper.tri(x), value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, upper.tri(x), value = `<lgl>`)
   10.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   11.       ├─base::withCallingHandlers(...)
   12.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-stretch.R:56:3'): remove.dups works ────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(stretch(d, remove.dups = TRUE), "data.frame") at test-stretch.R:56:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─corrr::stretch(d, remove.dups = TRUE)
    5. └─corrr:::stretch.cor_df(d, remove.dups = TRUE)
    6.   ├─corrr::shave(x)
    7.   └─corrr:::shave.cor_df(x)
    8.     ├─base::`[<-`(`*tmp*`, upper.tri(x), value = `<lgl>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, upper.tri(x), value = `<lgl>`)
   10.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 5 | WARN 36 | SKIP 0 | PASS 91 ]
  Error: Test failures
  Execution halted