Unwind taxstats

Author: HughParsonage

R/sample_files.R

@@ -17,6 +17,12 @@ CLEAR_ENV <- function() {
   rm(list = ls(envir = sf_env), envir = sf_env)
 }
 
+skip_if_not <- function(...) {
+  if (requireNamespace("testthat", quietly = TRUE)) {
+    testthat::skip_if_not(...)
+  }
+}
+
 skip_without_sample_files <- function(file = NULL) {
   if (requireNamespace("testthat", quietly = TRUE)) {
     if (dir.exists(tax_dir())) {

man/apply_super_caps_and_div293.Rd

@@ -22,7 +22,7 @@ test_that("Error handling", {
 
 
 
-  original <- income_tax(sample_file_1314$Taxable_Income, "2013-14", .dots.ATO = copy(sample_file_1314))
+  original <- income_tax(sample_file_1314$Taxable_Income, "2013-14", .dots.ATO = copy(.sample_file_1314()))
 
   new_tax <- model_income_tax(sample_file_1314_copy,
                               baseline_fy = "2013-14",
@@ -246,9 +246,9 @@ test_that("Medicare options", {
   skip_on_circleci(2)
 
   sample_file_1314_copy <- copy(.sample_file_1314())
-  original <- income_tax(sample_file_1314$Taxable_Income,
+  original <- income_tax(sample_file_1314_copy$Taxable_Income,
                          fy.year = "2013-14",
-                         .dots.ATO = copy(sample_file_1314))
+                         .dots.ATO = copy(sample_file_1314_copy))
 
   expect_warning(model_income_tax(sample_file_1314_copy,
                                   baseline_fy = "2013-14",
@@ -258,7 +258,7 @@ test_that("Medicare options", {
                  regexp = "medicare_levy_upper_threshold = 25677")
 
   sample_file_1314_if_2pc_ML <-
-    sample_file_1314 %>%
+    sample_file_1314_copy %>%
     copy %>%
     .[, old_tax := income_tax(Taxable_Income, "2013-14", .dots.ATO = .)] %>%
     .[, new_tax := model_income_tax(sample_file_1314_copy,

man/inverse_average_rate.Rd

@@ -1,7 +1,6 @@
 context("Tax receipts")
 
 test_that("income_tax on individual sample file reflect historical collections", {
-  skip_if_not_installed("taxstats") 
   # testthat::skip_on_travis()
 
   # True value of personal income tax receipts was $159.021 billion
@@ -14,7 +13,7 @@ test_that("income_tax on individual sample file reflect historical collections",
 
   # basic taxable income to tax
   test1 <- 
-    sample_file_1213 %>%
+    .sample_file_("1213") %>%
     copy %>%
     .[, tax0 := income_tax(Taxable_Income, "2012-13")] %>%
     .[, tax1 := income_tax(Taxable_Income, "2012-13", age = 42)] 
@@ -45,9 +44,9 @@ test_that("income_tax on individual sample file reflect historical collections",
     setnames(old = names(.), new = c("age_range", "age")) %>%
     .[, age := sub("\\sto.*$", "", age)] %>%
     setkey(age_range)
-  setkey(sample_file_1213, age_range)
+  setkey(.sample_file_("1213"), age_range)
   tax.collection <- 
-    sample_file_1213[age_decoder] %$%
+    .sample_file_("1213")[age_decoder] %$%
     {
       sum(income_tax(income = Taxable_Income, fy.year = "2012-13", age = as.integer(age))) * 50
     }

man/model_new_caps_and_div293.Rd

@@ -1,9 +1,7 @@
 context("utils")
 
 test_that("unselect_", {
-  skip_if_not_installed("taxstats")
-  library(taxstats)
-  y <- sample_file_1314 %>% copy %>% unselect_(.dots = "Sw_amt")
+  y <- data.table(x = 1, Sw_amt = 2) %>% unselect_(.dots = "Sw_amt")
   expect_false("Sw_amt" %in% names(y))
 })