Fix lints

ropensci · Dec 1, 2024 · 89e0104 · 89e0104
1 parent 4d39068
commit 89e0104
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/R/parse_avantes_binary.R b/R/parse_avantes_binary.R
@@ -318,7 +318,7 @@ lr_parse_rfl8 <- function(filename, specnum = 1L) {
                                dark_boxcar, white_boxcar, scope_boxcar)
 
     if (specnum == i) {
-      return(list("data" = data, "metadata" = metadata))
+      return(list(data = data, metadata = metadata))
     }
 
   }

diff --git a/R/parse_avantes_converted.R b/R/parse_avantes_converted.R
@@ -90,7 +90,7 @@ lr_parse_ttt <- function(filename) {
 
   data_final[match(colnames(data), cornames)] <- data
 
-  return(list("data" = data_final, "metadata" = metadata))
+  return(list(data = data_final, metadata = metadata))
 }
 
 #' @rdname lr_parse_ttt

diff --git a/R/parse_oceanoptics_converted.R b/R/parse_oceanoptics_converted.R
@@ -166,7 +166,7 @@ lr_parse_jaz <- function(filename) {
 
   data_final[match(colnames(data), cornames)] <- data
 
-  return(list("data" = data_final, "metadata" = unname(metadata)))
+  return(list(data = data_final, metadata = unname(metadata)))
 }
 
 #' @rdname lr_parse_jaz

diff --git a/R/parse_spc.R b/R/parse_spc.R
@@ -53,6 +53,6 @@ lr_parse_spc <- function(filename) {
 
   metadata <- rep(NA_character_, 13)
 
-  return(list("data" = as.data.frame(data), "metadata" = metadata))
+  return(list(data = as.data.frame(data), metadata = metadata))
 
 }
diff --git a/R/utils.R b/R/utils.R
@@ -12,8 +12,8 @@ convert_backward_tzdata <- function(tz) {
   # new test files.
   switch(
     tz,
-    "EST" = "America/Panama",
-    "CET" = "Europe/Brussels",
+    EST = "America/Panama",
+    CET = "Europe/Brussels",
     tz
   )