Running ‘testthat.R’ [19s/30s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(JumpeR)
  > library(purrr)
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  > 
  > test_check("JumpeR")
  [ FAIL 3 | WARN 0 | SKIP 42 | PASS 1 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (42)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-flash_parse.R:121'): flash parse works sprint ──────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., 10000)`: Can't convert `y` <double> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-flash_parse.R:121:4
    2. │ └─base::withCallingHandlers(...)
    3. ├─JumpeR::tf_parse(...)
    4. │ └─JumpeR::flash_parse(...)
    5. │   ├─base::suppressWarnings(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─... %>% dplyr::na_if("NA")
    8. ├─dplyr::na_if(., "NA")
    9. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   10. ├─dplyr::filter(., Row_Numb >= Min_Row_Numb)
   11. ├─dplyr::mutate(., Place = as.character(Place), Row_Numb = as.numeric(Row_Numb))
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::na_if(., 10000)
   14. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   15. └─vctrs (local) `<fn>`()
   16.   └─vctrs::vec_default_cast(...)
   17.     ├─base::withRestarts(...)
   18.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   19.     │   └─base (local) doWithOneRestart(return(expr), restart)
   20.     └─vctrs::stop_incompatible_cast(...)
   21.       └─vctrs::stop_incompatible_type(...)
   22.         └─vctrs:::stop_incompatible(...)
   23.           └─vctrs:::stop_vctrs(...)
   24.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-tf_parse.R:91'): tf_parse_round_attempts ───────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., 10000)`: Can't convert `y` <double> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─JumpeR::tf_parse(...) at test-tf_parse.R:91:2
    2. │ └─JumpeR:::hytek_parse(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% dplyr::na_if("NA")
    6. ├─dplyr::na_if(., "NA")
    7. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    8. ├─dplyr::filter(...)
    9. ├─dplyr::filter(., Row_Numb >= Min_Row_Numb)
   10. ├─dplyr::mutate(., Row_Numb = as.numeric(Row_Numb))
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::na_if(., 10000)
   13. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   14. └─vctrs (local) `<fn>`()
   15.   └─vctrs::vec_default_cast(...)
   16.     ├─base::withRestarts(...)
   17.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18.     │   └─base (local) doWithOneRestart(return(expr), restart)
   19.     └─vctrs::stop_incompatible_cast(...)
   20.       └─vctrs::stop_incompatible_type(...)
   21.         └─vctrs:::stop_incompatible(...)
   22.           └─vctrs:::stop_vctrs(...)
   23.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-tf_parse.R:195'): tf_parse_rounds ──────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., 10000)`: Can't convert `y` <double> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─JumpeR::tf_parse(...) at test-tf_parse.R:195:2
    2. │ └─JumpeR:::hytek_parse(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% dplyr::na_if("NA")
    6. ├─dplyr::na_if(., "NA")
    7. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    8. ├─dplyr::filter(...)
    9. ├─dplyr::filter(., Row_Numb >= Min_Row_Numb)
   10. ├─dplyr::mutate(., Row_Numb = as.numeric(Row_Numb))
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::na_if(., 10000)
   13. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   14. └─vctrs (local) `<fn>`()
   15.   └─vctrs::vec_default_cast(...)
   16.     ├─base::withRestarts(...)
   17.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18.     │   └─base (local) doWithOneRestart(return(expr), restart)
   19.     └─vctrs::stop_incompatible_cast(...)
   20.       └─vctrs::stop_incompatible_type(...)
   21.         └─vctrs:::stop_incompatible(...)
   22.           └─vctrs:::stop_vctrs(...)
   23.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  
  [ FAIL 3 | WARN 0 | SKIP 42 | PASS 1 ]
  Error: Test failures
  Execution halted