Running ‘testthat.R’ [7s/13s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(IPEDS)
  > 
  > test_check("IPEDS")
  
  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
  
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 67 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-admission_reqs.R:5:3'): number of columns in the resulting tibble is correct ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(ncol(admission_reqs(167835)), 2) at test-admission_reqs.R:5:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::ncol(admission_reqs(167835))
    5. └─IPEDS::admission_reqs(167835)
    6.   ├─dplyr::full_join(adm2020, dir_info2020, by = "INSTITUTION_ID")
    7.   └─dplyr:::full_join.data.frame(adm2020, dir_info2020, by = "INSTITUTION_ID")
    8.     └─dplyr:::join_mutate(...)
    9.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.             ├─base::withCallingHandlers(...)
   14.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-admission_reqs.R:9:3'): number of rows in the resulting tibble is correct ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(nrow(admission_reqs(167835)), 9) at test-admission_reqs.R:9:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(admission_reqs(167835))
    5. └─IPEDS::admission_reqs(167835)
    6.   ├─dplyr::full_join(adm2020, dir_info2020, by = "INSTITUTION_ID")
    7.   └─dplyr:::full_join.data.frame(adm2020, dir_info2020, by = "INSTITUTION_ID")
    8.     └─dplyr:::join_mutate(...)
    9.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.             ├─base::withCallingHandlers(...)
   14.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 67 ]
  Error: Test failures
  Execution halted