From 5461d8e0d87979a70fe45018d969d5b5c344bf4a Mon Sep 17 00:00:00 2001
From: Jzauner <zauner@me.com>
Date: Mon, 4 Dec 2023 20:02:56 +0100
Subject: [PATCH] Added a new device (SpectraWear) and fixed a Bug in another
 (DeLux)

---
 R/import_LL.R              |  19 +++++++++++++++++++
 data/supported.devices.rda | Bin 141 -> 156 bytes
 2 files changed, 19 insertions(+)

diff --git a/R/import_LL.R b/R/import_LL.R
index ed4374e..7ea2f6f 100644
--- 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
index 22d6504bc511de99c099d7c8b9caaa5b9c4a8c2c..d832b7633c3f8fd27787a55f922f451ddb8bbd65 100644
GIT binary patch
literal 156
zcmV;N0Av3`T4*^jL0KkKS$H!Ja{vG~e}Mn^Z~y=S5C9|u7~rmA-{1fNAOLj{6F@Wo
z8W{r<Bh(scQ)!gb1k*+WGHpZBV#y;4N<+wdKmmtcqq+a)>gmb~00bc*s89hEhyXh_
zC{|6p?r5zlV|ZH~$;7r*;20iPPX9?Hdlr$4aOV6&%BDcg7X2fsP|FA_yK`>53%Mek
KC`ddRhdF>@X*!z#

literal 141
zcmV;80CN9AT4*^jL0KkKS^v?Y^8f%ce}MmRZ~y=S5C9|u7+|hq-{1fNAOLhCn3`#(
zfYG1^1U*5DMt}eSBLId&3s8v-(Dm|5R^GjS@=pAyiHSrc69WMw8%sB4#hbC~RGuxp
v+%?e@*r)-dNT<M{`Vm7of)LOlpmiJCz7l~el#5EzhyE_)ig2MJ|D!|Z3ky4=