Running ‘testthat.R’ [15s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(finnts)
  Loading required package: modeltime
  > 
  > test_check("finnts")
  
  ── Prepping Data ───────────────────────────────────────────────────────────────
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-forecast_time_series.R:23:1'): (code run outside of `test_that()`) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(., .f = function(df) {
      combo <- unique(df$Combo)
      pad_data <- df %>% dplyr::select(-Combo) %>% timetk::pad_by_time(Date, 
          .by = date_type, .pad_value = pad_value, .end_date = hist_end_date) %>% 
          timetk::pad_by_time(Date, .by = date_type, .pad_value = 0, 
              .start_date = hist_start_date, .end_date = hist_end_date) %>% 
          dplyr::mutate(Combo = combo) %>% dplyr::select(Combo, 
          Date, Target, dplyr::all_of(external_regressors))
      return(pad_data)
  })`: ℹ In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─finnts::forecast_time_series(...) at test-forecast_time_series.R:23:0
    2. │ └─finnts:::get_full_data_tbl(...)
    3. │   └─... %>% ...
    4. ├─dplyr::mutate(., Target = ifelse(Date > hist_end_date, NA, Target))
    5. ├─dplyr::mutate_if(., is.numeric, list(~replace(., is.na(.), 0)))
    6. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
    7. │   └─dplyr::is_grouped_df(tbl)
    8. ├─dplyr::mutate_if(., is.numeric, list(~replace(., is.nan(.), NA)))
    9. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
   10. │   └─dplyr::is_grouped_df(tbl)
   11. ├─dplyr::mutate_if(...)
   12. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
   13. │   └─dplyr::is_grouped_df(tbl)
   14. ├─dplyr::bind_rows(.)
   15. │ └─rlang::list2(...)
   16. ├─purrr::map(...)
   17. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   18. │   └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
   19. ├─dplyr::group_split(.)
   20. ├─dplyr::group_by(., Combo)
   21. ├─dplyr::ungroup(.)
   22. ├─dplyr::left_join(., xregs_future_values_tbl)
   23. ├─timetk::future_frame(...)
   24. │ └─rlang::is_missing(.data)
   25. ├─dplyr::group_by(., Combo)
   26. ├─finnts:::get_log_transformation(., target_log_transformation)
   27. ├─dplyr::bind_rows(.)
   28. │ └─rlang::list2(...)
   29. ├─purrr::map(...)
   30. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   31. │   ├─purrr:::with_indexed_errors(...)
   32. │   │ └─base::withCallingHandlers(...)
   33. │   ├─purrr:::call_with_cleanup(...)
   34. │   └─finnts (local) .f(.x[[i]], ...)
   35. │     └─... %>% ...
   36. ├─dplyr::select(., Combo, Date, Target, dplyr::all_of(external_regressors))
   37. ├─dplyr::mutate(., Combo = combo)
   38. ├─timetk::pad_by_time(...)
   39. ├─timetk:::pad_by_time.data.frame(...)
   40. │ └─timetk:::padder(...)
   41. │   ├─base::`[<-`(...)
   42. │   └─tibble:::`[<-.tbl_df`(...)
   43. │     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   44. │       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   45. │         ├─base::withCallingHandlers(...)
   46. │         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   47. └─base::.handleSimpleError(...)
   48.   └─purrr (local) h(simpleError(msg, call))
   49.     └─cli::cli_abort(...)
   50.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted