tests/testthat/test.load.events.files.R

In activPAL: Advanced Processing and Chart Generation from activPAL Events Files

context("Load File")
library(activPAL)

test_that("file_loading", {

  file_data <- activPAL:::pre.process.events.file(paste(system.file("extdata", "", package = "activPAL"),"/Test_Events.csv",sep=""))
  expect_equal(nrow(file_data), 179)
  expect_equal(length(which(is.na(file_data$time))), 0)
  expect_equal(sum(file_data$steps), 2006)
  expect_equal(sum(file_data$interval), 86400)
})