tests/testthat/test-vector_transpose.R

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

test_that("The longer tables are returned in a correct form", {
  expect_warning(vector_transpose (data.frame(indicator = "my_inidcator", 
                                              agriculture = 0.0123,
                                              manufacturing = 0.1436,
                                              trade = 0.0921), 
                                   .keep = TRUE))
  expect_true(inherits(vector_transpose_longer(data.frame(indicator = "my_inidcator", 
                                                          agriculture = 0.0123,
                                                          manufacturing = 0.1436,
                                                          trade = 0.0921)), 
                       "data.frame"))
  expect_equal(names(vector_transpose_longer(data.frame(indicator = "my_inidcator", 
                                                        agriculture = 0.0123,
                                                        manufacturing = 0.1436,
                                                        trade = 0.0921), 
                                             .keep = TRUE)), 
               c("indicator", "nace_r2", "value"))
  expect_equal(names(vector_transpose_longer(data.frame(indicator = "my_inidcator", 
                                                        agriculture = 0.0123,
                                                        manufacturing = 0.1436,
                                                        trade = 0.0921), 
                                             .keep = FALSE)),
               c("nace_r2", "value"))
})

test_that("Key column is correctly created", {
  expect_equal(key_column_create ("iotables_row", c("CO2_multiplier", "CH4_multiplier")), 
               tibble ( iotables_row = c("CO2_multiplier", "CH4_multiplier"))) })

data("germany_airpol")

airpol_wide_1 <- vector_transpose_wider(
  # The key column is automatically created
  data_table =  germany_airpol[, -2],
  names_from = 'induse',
  values_from = 'value', 
  key_column_values = NULL, 
  key_column_name = NULL)

airpol_wide_2 <- vector_transpose_wider(
  # The key column is missing and it is being created 
  data_table =  germany_airpol[1:8, 3:4],
  names_from = 'induse',
  values_from = 'value', 
  key_column_values = "CO2_emission", 
  key_column_name = "emissions")

airpol_wide_3 <- vector_transpose_wider(
  # The key column is existing and it is REPLACED
  data_table =  germany_airpol[1:8, -2],
  names_from = 'induse',
  values_from = 'value', 
  key_column_values = "CO2", 
  key_column_name = "iotables_rows")


test_that("The wider tables are returned in a correct form and with correct key columns", {
  expect_equal(ncol(airpol_wide_1), 9) 
  expect_equal(ncol(airpol_wide_2), 9)
  expect_equal(ncol(airpol_wide_3), 9)
  expect_equal(names(airpol_wide_2)[1], "emissions") 
  expect_equal(names(airpol_wide_3)[1], "iotables_rows") 
  expect_equal(names(airpol_wide_1)[1], names(germany_airpol)[1]) 
  expect_equal(as.character(airpol_wide_2[1,1]), "CO2_emission") 
  expect_equal(as.character(airpol_wide_3[1,1]), "CO2") 
  })