tests/testthat/test-10-classification.R

In pxmake: Make PX-Files in R

test_that("A classification can be created from df and paths", {
  c1 <- px_classification(name = "Test",
                          prestext = "Test",
                          domain = "Test",
                          df = data.frame(valuecode = 1:26, valuetext = letters)
                          )

  expect_s3_class(c1, "classification")

  c2 <- px_classification(vs_path = vs_age5_path(),
                          agg_paths = agg_25years_path()
                          )

  expect_s3_class(c2, "classification")
})

test_that("Classification can be created without aggregation", {
  c1 <- px_classification(vs_path = vs_age5_path(),
                          agg_paths = character(0)
                          )

  expect_s3_class(c1, "classification")

  c2 <- px_classification(name = "No aggregation",
                          prestext = "No aggregation",
                          domain = "no_agg",
                          df = dplyr::tribble(~valuecode,    ~valuetext,
                                                   "0-4",   "0-4 years",
                                                   "5-9",   "5-9 years",
                                                 "10-14", "10-14 years"
                                              )
                          )

  expect_s3_class(c2, "classification")
})

test_that("Classification automatically read agg files", {
  c <- px_classification(vs_path = vs_age5_path())

  expect_equal(c$df, age_classification)
})

test_that("Classification is robust to formatting differences in files", {
  target <- px_classification(vs_path = vs_age5_path())
  c      <- px_classification(vs_path = vs_age5_strangely_formatted_path())

  expect_identical(target$name, c$name)
  expect_identical(target$prestext, c$prestext)
  expect_identical(target$domain, c$domain)
  expect_identical(target$df$valuecode, c$df$valuecode)
  expect_identical(target$df$valuetext, c$df$valuetext)
  expect_identical(target$df[[3]], c$df[[3]])
  expect_identical(target$df[[4]], c$df[[4]])
})

test_that("Classification can be create without [Valuetext]", {
  expect_s3_class(
    px_classification(vs_path = get_classification_path("vs_without_valuetext.vs")),
    "classification"
    )
})

test_that("Aggregation values are taken from Aggtext section", {
  c <- px_classification(vs_path = vs_pxvsbrche_path())

  expect_equal(c$df$BRCH_BRCH_E %>% as.character(),
               c("All industries",
                 "Agriculture, forestry and related industries",
                 "Fishing and other related industries",
                 "Mining and quarrying",
                 "Manufacturing",
                 "Energy and watersupply",
                 "Construction",
                 "Wholesale and retail trade",
                 "Transportation and storage",
                 "Accommodation and food service activities",
                 "Information and communication",
                 "Financial and insurance activities",
                 "Real estate activities",
                 "Professional, scientific and technical activities",
                 "Administrative and support service activities",
                 "Public administration and service",
                 rep(NA, 17),
                 "Other service industries",
                 "Unknown"
                 )
               )

  expect_equal(c$df$BRCH_OFF_E %>% as.character(),
               c(rep(NA, 15),
                 "Public administration and service",
                 "General public services (COFOG 1)",
                 "Defence (COFOG 2)",
                 "Public order and safety (COFOG 3)",
                 "Economic affairs (COFOG 4)",
                 "Environmental protection (COFOG 5)",
                 "Housing and community amenities (COFOG 6)",
                 "Health (COFOG 7)",
                 "Recreation, culture and religion (COFOG 8)",
                 "Education (COFOG 9)",
                 "Education other (COFOG 9.x)",
                 "Primary education (COFOG 9.10)",
                 "Youth-level education (COFOG 9.20)",
                 "Social protection (COFOG 10)",
                 "Social protection (COFOG 10.x)",
                 "Old age (COFOG 10.20)",
                 "Family and children (COFOG 10.40)",
                 "Other (COFOG x)",
                 rep(NA, 2)
                 )
               )
})