fixes #89

Author: vincentvanhees

NEWS.md

@@ -1,3 +1,7 @@
+# Changes in version 1.0.? (release date:??-??-2026)
+
+-  Update readActiwatchCount to handle behaviour upcoming data.table package release. #89
+
 # Changes in version 1.0.7 (release date:26-11-2025)
 
 - Parmay Matrix: 

R/readActiwatchCount.R

@@ -68,7 +68,7 @@ readActiwatchCount = function(filename = NULL,
         index = index + 1
       }
     }
-    D = data.table::fread(input = filename, header = FALSE, sep = ",",
+    D = data.table::fread(input = filename, sep = ",",
                           skip = index, quote = quote, data.table = FALSE)
     colnames(D)[1:2] = c("counts", "light")
     lastCol = ncol(D)

tests/testthat/test_readActiwatchCount.R

@@ -14,8 +14,9 @@ test_that("Actiwatch csv is correctly read", {
 })
 test_that("Actiwatch awd is correctly read", {
   file = system.file("testfiles/Actiwatch.AWD", package = "GGIRread")
-  D = readActiwatchCount(filename = file, timeformat = "%d-%b-%Y %H:%M:%S",
-                         desiredtz =  "Europe/Amsterdam")
+  expect_warning(D <- readActiwatchCount(filename = file, timeformat = "%d-%b-%Y %H:%M:%S",
+                                          desiredtz =  "Europe/Amsterdam"),
+                 regexp = "Detected 1 column names but the data has 3 columns*")
   expect_equal(D$epochSize, 60)
   expect_equal(format(D$startTime), "2009-10-01 17:00:00")
   expect_equal(nrow(D$data), 329)
@@ -27,8 +28,9 @@ test_that("Actiwatch awd is correctly read", {
 
 test_that("Actiwatch awd error correctly", {
   file = system.file("testfiles/Actiwatch.AWD", package = "GGIRread")
-  expect_error(readActiwatchCount(filename = file,
+  expect_error(expect_warning(readActiwatchCount(filename = file,
                                   timeformat = "%d-%m-%Y %H:%M:%S"),
+                              regexp = "Detected 1 column names but the data has 3 columns*"),
                regexp = "Time format*")
 
   expect_error(readActiwatchCount(filename = "",