Running 'testthat.R' [70s]
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
  
  <XMLInputError: XML content does not seem to be XML: ''>
  -- 1. Error: ABS connection (@test_cpi.R#136)  ---------------------------------
  Items of 'old' not found in column names: obsValue,obsTime
  1: cpi_inflator_quarters(100, from_qtr = "1960-Q1", to_qtr = "1961-Q1", adjustment = "seasonal", 
         useABSConnection = TRUE) at testthat/test_cpi.R:136
  2: inflator(from_nominal_price, from = from_qtr, to = to_qtr, inflator_table = cpi.indices, 
         index.col = "obsValue", time.col = "obsTime")
  3: inflator_table %>% as.data.table %>% setnames(c(index.col, time.col), c("Index", 
         "Time")) %>% setkeyv("Time")
  4: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: `_fseq`(`_lhs`)
  8: freduce(value, `_function_list`)
  9: function_list[[i]](value)
  10: setnames(., c(index.col, time.col), c("Index", "Time"))
  11: stop("Items of 'old' not found in column names: ", paste(old[is.na(i)], collapse = ","))
  
  == testthat results  ===========================================================
  OK: 254 SKIPPED: 40 FAILED: 1
  1. Error: ABS connection (@test_cpi.R#136) 
  
  Error: testthat unit tests failed
  Execution halted