Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(codified)
  > 
  > test_check("codified")
  Rows: 500 Columns: 12
  -- Column specification --------------------------------------------------------
  Delimiter: ","
  chr  (4): name_last, name_first, address, email
  dbl  (7): record_id, phone, ethnicity, race, gender, height_cm, weight_kg
  date (1): dob
  
  i Use `spec()` to retrieve the full column specification for this data.
  i Specify the column types or set `show_col_types = FALSE` to quiet this message.
  [ FAIL 7 | WARN 16 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-table-nih-enrollment-pretty.R:17:3'): Smoke Test ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment_pretty(ds_1a) at test-table-nih-enrollment-pretty.R:17:2
    2.   ├─kableExtra::add_header_above(...)
    3.   ├─kableExtra::add_header_above(...)
    4.   ├─kableExtra::column_spec(...)
    5.   ├─kableExtra::kable_styling(...)
    6.   ├─knitr::kable(...)
    7.   ├─dplyr::select(...)
    8.   ├─tidyr::pivot_wider(...)
    9.   ├─dplyr::select(...)
   10.   ├─dplyr::mutate(...)
   11.   └─codified::table_nih_enrollment(...)
   12.     ├─dplyr::arrange(...)
   13.     ├─dplyr::select(...)
   14.     ├─dplyr::mutate(...)
   15.     ├─dplyr::full_join(...)
   16.     └─dplyr:::full_join.data.frame(...)
   17.       └─dplyr:::join_mutate(...)
   18.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   19.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   20.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   21.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22.               ├─base::withCallingHandlers(...)
   23.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:46:3'): Smoke Test ──────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(ds_1a) at test-table-nih-enrollment.R:46:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:51:3'): ds_1a --no metadata required ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(ds_1a) at test-table-nih-enrollment.R:51:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:75:3'): ds_1b --ethnicity metadata required ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(d_1b, d_lu_ethnicity = d_lu_ethnicity) at test-table-nih-enrollment.R:75:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:115:3'): ds_1c --all metadata required ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(...) at test-table-nih-enrollment.R:115:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:133:3'): ds_1d --different variable names ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(...) at test-table-nih-enrollment.R:133:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-table-nih-enrollment.R:173:3'): ds_2 --500 patients w/ numeric codes ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─codified::table_nih_enrollment(...) at test-table-nih-enrollment.R:173:2
    2.   ├─dplyr::arrange(...)
    3.   ├─dplyr::select(...)
    4.   ├─dplyr::mutate(...)
    5.   ├─dplyr::full_join(...)
    6.   └─dplyr:::full_join.data.frame(...)
    7.     └─dplyr:::join_mutate(...)
    8.       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 7 | WARN 16 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted