tests/testthat/test_data_transformation.R

In dhelkey/clustershard: Analyze and Cluster Compositional Pottery Data

#Load in pre-parsed example data as a baseline
data(example_data)

#Parse from a raw csv
data_path = system.file("extdata", package = 'clustershard')

data1 = paste0(data_path,'/pottery_dat.csv')
data2 = paste0(data_path,'/data_messy.csv')
data3 = paste0(data_path,'/data_fail.csv')
data4 = paste0(data_path,'/data_test.csv')
parsed_data = processPotteryDat(data1)

context("Load Data")
test_that("Error handling", {
  expect_error( processPotteryDat(data_path,
    element_start_column = 1))

  expect_error( processPotteryDat(dat3))

  expect_error( processPotteryDat(data4))

  expect_error( processPotteryDat(data4, #No error
                                  element_start_column = 5),
                NA)
})
test_that("Outputs expected data", {
  expect_equal( example_data, parsed_data$dat)
})


context("Transform Data")
dat = parsed_data$dat
unscaled_dat = transformDat(dat)
scaled_dat = transformDat(dat, standardize = TRUE)

test_that("Standardize behaves as expected",{
  expect_equal(prcomp(unscaled_dat, scale = TRUE)$x,
                      prcomp(scaled_dat)$x)
})