add support for ClouClip devices

Author: JZauner

NEWS.md

@@ -1,3 +1,7 @@
+* Import support for the `ClouClip` device.
+
+* `import_Dataset()` no longer changes a pre-existing `Id` column (if it is not called `Id`). The function is also more informative for the daylight savings time handling in files with more than one Id.
+
 # LightLogR 0.5.4
 
 * `gg_photoperiod()` does no longer throw an error when the main plots `y.axis` is not based on a `MEDI` column.

R/import_LL.R

@@ -234,6 +234,14 @@
 #'   
 #'   OcuWEAR data contains spectral data. Due to the format of the data file, the spectrum is not directly part of the tibble, but rather a list column of tibbles within the imported data, containing a `Wavelength` (nm) and `Intensity` (mW/m^2) column.
 #'
+#'   ## ClouClip
+#'   
+#'   Manufacturer: Clouclip
+#'   
+#'   Implemented: April 2025
+#'   
+#'   ClouClip export files have the ending `.xls`, but are no real Microsoft Excel files, rather they are tab-separated text files. LightLogR thus does not read them in with an excel import routine
+#'
 #' @section Examples:
 #'
 #'   ## Imports made easy

R/import_expressions.R

@@ -534,6 +534,21 @@ import_expr <- list(
       dplyr::mutate(
         Datetime = lubridate::force_tz(Datetime, tz = tz)
       )
+  }),
+  #ClouClip
+  ClouClip = rlang::expr({
+    data <- 
+      readr::read_tsv(filename, 
+                      show_col_types = FALSE,
+                      n_max = n_max,
+                      locale = locale,
+                      id = "file.name",
+                      name_repair = "universal",
+                      ...
+                      )
+    data <- data |> 
+      dplyr::rename(Datetime = Date) |> 
+      dplyr::mutate(Datetime = lubridate::force_tz(Datetime, tz = tz))
   })
 )