Fix lint

rmaia · Oct 23, 2023 · 54eb48c · 54eb48c
1 parent 2558052
commit 54eb48c
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/R/as.rspec.R b/R/as.rspec.R
@@ -121,14 +121,12 @@ as.rspec <- function(object, whichwl = NULL,
   } else {
     l1 <- lim[1]
     l2 <- lim[2]
-    if (l1.dat > lim[1] || l2.dat < lim[2]) {
-      if (exceed.range) {
-        warning(
-          "Interpolating beyond the range of actual data.\n",
-          "Check 'lim' and `exceed.range` arguments to confirm this is the desired behaviour.",
-          call. = FALSE
-        )
-      }
+    if ((l1.dat > lim[1] || l2.dat < lim[2]) && exceed.range) {
+      warning(
+        "Interpolating beyond the range of actual data.\n",
+        "Check 'lim' and `exceed.range` arguments to confirm this is the desired behaviour.",
+        call. = FALSE
+      )
     }
   }