Running ‘testthat.R’ [4s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # libs   ####
  > library(testthat)
  > library(linea)
  
  Attaching package: 'linea'
  
  The following object is masked from 'package:stats':
  
      lag
  
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:linea':
  
      lag
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(tidyr)
  
  Attaching package: 'tidyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > # test_check("linea")
  > 
  > # set up ####
  > ### NOT POOLED  ----
  > 
  > # import data
  > data = read_xcsv(verbose = FALSE,
  +                  file = "https://raw.githubusercontent.com/paladinic/data/main/ecomm_data.csv") %>%
  +   check_ts(verbose = FALSE,
  +           allow_non_num = TRUE,
  +           date_col = "date") %>%
  +   get_seasonality(verbose = FALSE,
  +                   date_col_name = "date",
  +                   date_type = "weekly starting")
  Rows: 261 Columns: 8
  ── Column specification ────────────────────────────────────────────────────────
  Delimiter: ","
  dbl  (7): ecommerce, black.friday, christmas, covid, online_media, offline_m...
  date (1): date
  
  ℹ Use `spec()` to retrieve the full column specification for this data.
  ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
  > 
  > 
  > # vars
  > dv = "ecommerce"
  > ivs = c("black.friday", "christmas", "covid")
  > id_var = "date"
  > 
  > # model table
  > model_table = build_model_table(ivs)
  > model_table$dec[1] = '0.5'
  > 
  > # category
  > category = tibble(
  +   variable = c("christmas" , "christmas"),
  +   category = c("a", "a"),
  +   calc = c("", "")
  + )
  > 
  > # run model
  > model = run_model(
  +   verbose = FALSE,
  +   data = data,
  +   dv = dv,
  +   model_table = model_table,
  +   normalise_by_pool = FALSE,
  +   id_var = id_var 
  + )
  Error in vectbl_assign(x[[j]], i, recycled_value[[j]]) : 
    DLL requires the use of native symbols
  Calls: run_model ... tbl_subassign_row -> withCallingHandlers -> vectbl_assign
  Execution halted