Running ‘testthat.R’ [14s/31s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > 
  > all.pkgs <- c("testthat", "dplyr", "dtplyr", "data.table", "magrittr", "survey", "zoo")
  > 
  > 
  > if (all(vapply(all.pkgs, requireNamespace, logical(1L), quietly = TRUE))) {
  +   
  +   library(testthat)
  +   library(grattan)
  +   library(dplyr)
  +   library(dtplyr)
  +   library(hutils)
  +   library(data.table)
  +   
  +   if (requireNamespace("taxstats", quietly = TRUE)) {
  +     
  +     library(taxstats)
  +     sample_files_all <-
  +       rbindlist(lapply(list(`2003-04` = sample_file_0304,
  +                             `2004-05` = sample_file_0405, `2005-06` = sample_file_0506,
  +                             `2006-07` = sample_file_0607, `2007-08` = sample_file_0708,
  +                             `2008-09` = sample_file_0809, `2009-10` = sample_file_0910,
  +                             `2010-11` = sample_file_1011, `2011-12` = sample_file_1112,
  +                             `2012-13` = sample_file_1213, `2013-14` = sample_file_1314),
  +                        data.table::as.data.table),
  +                 use.names = TRUE,
  +                 fill = TRUE,
  +                 idcol = "fy.year")
  +     sample_files_all[, WEIGHT := hutils::if_else(fy.year > '2010-11', 50L, 100L)]
  +   }
  +   
  +   library(magrittr)
  +   library(survey)
  +   library(zoo)
  +   
  +   test_check("grattan")
  + }
  
  Attaching package: 'dplyr'
  
  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
  
  
  Attaching package: 'hutils'
  
  The following objects are masked from 'package:dplyr':
  
      coalesce, if_else
  
  
  Attaching package: 'data.table'
  
  The following objects are masked from 'package:dplyr':
  
      between, first, last
  
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  Loading required package: grid
  Loading required package: Matrix
  Loading required package: survival
  
  Attaching package: 'survey'
  
  The following object is masked from 'package:graphics':
  
      dotchart
  
  
  Attaching package: 'zoo'
  
  The following objects are masked from 'package:base':
  
      as.Date, as.Date.numeric
  
  [1] "−$100 million"
  [1] "−$2.2 billion"
  [1] "−$22 billion"
  <simpleError in doTryCatch(return(expr), name, parentenv, handler): Invalid SDMX-ML file>
  ── 1. Error: ABS connection (@test_wage_inflator.R#70)  ────────────────────────
  Cannot use := to add columns to a null data.table (no columns), currently. You can use := to add (empty) columns to a 0-row data.table (1 or more empty columns), though.
  1: wage_inflator(from_fy = "2012-13", to_fy = "2013-14", useABSConnection = TRUE) at testthat/test_wage_inflator.R:70
  2: wage.indices[, `:=`(obsYear, as.integer(sub("([12][0-9]{3}).Q([1-4])", "\\1", obsTime, 
         perl = TRUE)))]
  3: `[.data.table`(wage.indices, , `:=`(obsYear, as.integer(sub("([12][0-9]{3}).Q([1-4])", 
         "\\1", obsTime, perl = TRUE))))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 235 SKIPPED: 63 FAILED: 1
  1. Error: ABS connection (@test_wage_inflator.R#70) 
  
  Error: testthat unit tests failed
  Execution halted