correct mismatched length

cmmid · Nov 7, 2024 · f67557c · f67557c
1 parent d244f20
commit f67557c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/internal.R b/R/internal.R
@@ -179,14 +179,15 @@ to_function <- function(x, bounds, interp_opts) {
       kind <- callargs$kind
       callargs$kind <- NULL
       if (kind == "integral") {
-        if (tail(x[[2]], 1) != 0) {
+        len <- length(x[[2]])
+        if (x[[2]][len] != 0) {
           stop(sprintf(
             "for integral data, the final entry should be 0; got instead: %s",
-            toString(tail(x[[2]], 1))
+            toString(x[[2]][len])
           ))
         }
         ws <- diff(x[[1]])
-        x[[2]] <- c(x[[2]]/ws, 0)
+        x[[2]] <- c(x[[2]][-len]/ws, 0)
       }
     }
     callargs$.usekind <- NULL