Running ‘testthat.R’ [9s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(insurancerating)
  > 
  > test_check("insurancerating")
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 30 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test_model_get_data.R:30:5'): No errors are returned for glm objects ──
  `construct_model_points(model_data(model1))` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_model_get_data.R:30:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─insurancerating::construct_model_points(model_data(model1))
    7. └─insurancerating::model_data(model1)
    8.   └─insurancerating::rating_factors1(x)
    9.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
   10.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
   11.       └─dplyr:::join_mutate(...)
   12.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.               ├─base::withCallingHandlers(...)
   17.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test_model_get_data.R:31:5'): No errors are returned for glm objects ──
  `construct_model_points(model_data(model1), exposure = qsec)` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_model_get_data.R:31:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─insurancerating::construct_model_points(model_data(model1), exposure = qsec)
    7. └─insurancerating::model_data(model1)
    8.   └─insurancerating::rating_factors1(x)
    9.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
   10.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
   11.       └─dplyr:::join_mutate(...)
   12.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.               ├─base::withCallingHandlers(...)
   17.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test_model_get_data.R:33:5'): No errors are returned for glm objects ──
  `construct_model_points(model_data(model1), exposure = qsec, exposure_by = vs)` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_model_get_data.R:33:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─insurancerating::construct_model_points(...)
    7. └─insurancerating::model_data(model1)
    8.   └─insurancerating::rating_factors1(x)
    9.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
   10.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
   11.       └─dplyr:::join_mutate(...)
   12.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.               ├─base::withCallingHandlers(...)
   17.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test_model_get_data.R:36:5'): No errors are returned for glm objects ──
  `construct_model_points(...)` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_model_get_data.R:36:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─insurancerating::construct_model_points(...)
    7. └─insurancerating::model_data(model1)
    8.   └─insurancerating::rating_factors1(x)
    9.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
   10.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
   11.       └─dplyr:::join_mutate(...)
   12.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.               ├─base::withCallingHandlers(...)
   17.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_model_get_data.R:65:1'): (code run outside of `test_that()`) ───
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─burn %>% restrict_coef(., zip_df) %>% update_glm() at test_model_get_data.R:65:0
    2. ├─insurancerating::update_glm(.)
    3. └─insurancerating::restrict_coef(., zip_df)
    4.   └─insurancerating::rating_factors1(model)
    5.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
    6.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
    7.       └─dplyr:::join_mutate(...)
    8.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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_model_rating_factors.R:30:1'): (code run outside of `test_that()`) ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─burn %>% restrict_coef(., zip_df) %>% update_glm() at test_model_rating_factors.R:30:0
    2. ├─insurancerating::update_glm(.)
    3. └─insurancerating::restrict_coef(., zip_df)
    4.   └─insurancerating::rating_factors1(model)
    5.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
    6.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
    7.       └─dplyr:::join_mutate(...)
    8.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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_model_refinement.R:51:5'): Input and output in matchColClasses() are of same type ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─insurancerating::restrict_coef(freq, zip_df) at test_model_refinement.R:51:4
    2.   └─insurancerating::rating_factors1(model)
    3.     ├─dplyr::full_join(xl_df, vals, by = c(ind_values = "ind"))
    4.     └─dplyr:::full_join.data.frame(xl_df, vals, by = c(ind_values = "ind"))
    5.       └─dplyr:::join_mutate(...)
    6.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    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 7 | WARN 0 | SKIP 0 | PASS 30 ]
  Error: Test failures
  Execution halted