tests/testthat/test_ecg.R

In rsleep: Analysis of Sleep Data

context("ECG signal functions testing")

test_that("Peak detection", {
  
  path <- paste0(tempdir(),"rec_1.dat")
  download.file("https://physionet.org/files/ecgiddb/1.0.0/Person_01/rec_1.dat?download",path)
  ecg <- readBin(path,integer(),500*30)
  unlink(path)
  peaks <- detect_rpeaks(ecg, sRate = 500)
  expect_true(length(peaks) > 0)
})