Added a new device (SpectraWear) and fixed a Bug in another (DeLux)

tscnlab · Dec 4, 2023 · 5461d8e · 5461d8e
1 parent ae83470
commit 5461d8e
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/R/import_LL.R b/R/import_LL.R
@@ -204,6 +204,24 @@ imports <- function(device,
 }
 
 import_arguments <- list(
+  #SpectraWear
+  SpectraWear = rlang::expr({
+    tmp <-suppressMessages( 
+      readr::read_csv(filename,
+                      n_max = n_max,
+                      id = "file.name",
+                      locale = locale,
+                      name_repair = "universal",
+                      ...
+      ))
+    tmp <- tmp %>%
+      dplyr::rename(MEDI = Mel
+                    ) %>% 
+      dplyr::mutate(Datetime =
+                      lubridate::dmy_hms(paste(Date, Time), tz = tz),
+                    Id = paste(.data$id, .data$ls, sep = ".")
+                      )
+  }),
   #Speccy
   Speccy = rlang::expr({
     tmp <-suppressMessages( 
@@ -228,6 +246,7 @@ import_arguments <- list(
                       id = "file.name",
                       locale = locale,
                       name_repair = "universal",
+                      col_types = c("fccdddddddddddddddddd"),
                       ...
       ))
     tmp <- tmp %>%

diff --git a/data/supported.devices.rda b/data/supported.devices.rda