check if length-0 vector reads trigger r-devel bug

AshesITR · Jun 15, 2024 · 9d19188 · 9d19188
1 parent 5b86b61
commit 9d19188
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -222,6 +222,7 @@ dgamma_matrix <- function(x, shape, scale) {
 }
 
 pgamma_diff_matrix <- function(lower, upper, shape, scale) {
+    stopifnot(length(lower) > 0L)
     .Call(`_reservr_pgamma_diff_matrix`, lower, upper, shape, scale)
 }