tests/testthat/test-get_actigraph_SN.R

In martakarass/arctools: Processing and Physical Activity Summaries of Minute Level Activity Data

# rm(list = ls()); library(testthat); library(arctools)

context("Testing get_actigraph_SN()")

test_that("Test if ActigraphSN returns correct Actigraph serial number.", {
  skip_on_cran()

  expect_equal(
    get_actigraph_SN(system.file("extdata", extdata_fnames[1], package = "arctools")),
    "TAS1D47140221"
    )

})