tests/testthat/test-iotable_get.R

In iotables: Reproducible Input-Output Economics Analysis, Economic and Environmental Impact Assessment with Empirical Data

test_that("Necessary input parameters are checked in iotable_get()", {
  expect_error(iotable_get(source = 'naio_10_cp1701', 
                           year = 2015, geo = "DE",
                           unit = "MIO_EUR", labelling = "iotables"))
})

iotable_get ( source = "germany_1995", year = 1995)


test_that("Correct data is returned by iotable_get()", {
  expect_equal(as.numeric(iotable_get(source = 'germany_1995', 
                                      geo = 'DE', year = 1995, 
                                      unit = "MIO_EUR", labelling = "iotables")[1,2]), 1131)
  expect_equal(as.character(unlist(iotable_get(source = 'germany_1995', 
                                        geo = 'DE', year = 1995, 
                                        unit = "MIO_EUR", labelling = 'short')[4,1])), "CPA_G-I")
  expect_equal(as.numeric(iotable_get(source = "croatia_2010_1800", geo = "HR",
                                      year = 2010, unit = "T_NAC")[1,3]), 
               expected = 164159,  tolerance = 0.6)
  expect_equal(as.numeric(iotable_get(source = "croatia_2010_1900", geo = "HR",
                                      year = 2010, unit = "T_NAC")[2,5]), 
               expected = 1,  tolerance = 0.5)
  expect_equal(as.character(unlist(iotable_get(source = "croatia_2010_1900", geo = "HR",
                                          year = 2010, unit = "T_NAC", 
                                          labelling = 'short')[2,1])), 
               expected = "CPA_A02")
  expect_equal(as.character(unlist(iotable_get(source = "croatia_2010_1900", geo = "HR",
                                               year = 2010, unit = "T_NAC", 
                                               labelling = "iotables")[2,1])), 
               expected = "forestry")
})


run_only_manually <- function() {
  # This test is too time and resource consuming for automatically running on CRAN.
  test <- iotable_get ( source = "naio_10_cp1750", stk_flow = "TOTAL",
                        geo = "CZ", unit = "MIO_NAC", year = 2010, 
                        data_directory = "data-raw", force_download = FALSE)
  
  test_that("Correct data is returned by iotable_get()", {
    expect_equal(as.numeric(test[1,2]), 10161)
  })
}

germany_table <- iotable_get(source = 'germany_1995', 
                             geo = 'DE', year = 1995, 
                             unit = "MIO_EUR", labelling = "iotables")

hh <- germany_table$final_consumption_households[which( germany_table$iotables_row == "output")]

test_that("Correct data is returned for private consumption by iotable_get()", {
  expect_equal(hh, 1001060)
})