Running ‘testthat.R’ [114s/185s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(admiral)
  > 
  > test_check("admiral")
  [ FAIL 6 | WARN 134 | SKIP 0 | PASS 595 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-derive_locf_records.R:33:3'): derive_locf_records Test 1: visits are missing ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:33:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-derive_locf_records.R:83:3'): derive_locf_records Test 2: some visits have missing AVAL ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:83:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-derive_locf_records.R:143:3'): derive_locf_records Test 3: visits are missing - and DTYPE already exits ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:143:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-derive_locf_records.R:191:3'): derive_locf_records Test 4: visit variables are parameter independent ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:191:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-derive_locf_records.R:247:3'): derive_locf_records Test 5: visit variables are parameter dependent ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:247:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-derive_locf_records.R:291:3'): derive_locf_records Test 6: populate VISITNUM for LOCF records ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─admiral::derive_locf_records(...) at test-derive_locf_records.R:291:2
    2. │ └─aval_not_missing %>% ...
    3. ├─dplyr::full_join(., advs_exp_obsv3, by = c(exp_obs_vars))
    4. └─dplyr:::full_join.data.frame(., advs_exp_obsv3, by = c(exp_obs_vars))
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,6]>`)
    8.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.           ├─base::withCallingHandlers(...)
   11.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 6 | WARN 134 | SKIP 0 | PASS 595 ]
  Error: Test failures
  Execution halted