update snapshots

r-lib · May 6, 2024 · 199ea2a · 199ea2a
1 parent ae71c69
commit 199ea2a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/altrep.R b/R/altrep.R
@@ -56,7 +56,7 @@ new_sparse_real <- function(value, position, length) {
   }
 
   if (!is.integer(position)) {
-    if (any(round(position) != position)) {
+    if (any(round(position) != position, na.rm = TRUE)) {
       offenders <- which(round(position) != position)
 
       cli::cli_abort(

diff --git a/tests/testthat/_snaps/altrep.md b/tests/testthat/_snaps/altrep.md
@@ -86,7 +86,7 @@
     Code
       new_sparse_real(1, NaN, 1)
     Condition
-      Error in `if (any(round(position) != position)) ...`:
+      Error in `if (len_position > 0 && max(position) > length) ...`:
       ! missing value where TRUE/FALSE needed
 
 ---