Merge pull request #14 from YuhangTom/fix/x3p_rotate

Correct NA conditions after rotation
heike · Mar 5, 2024 · 073081a · 073081a
2 parents 33d1952 + ce9f822
commit 073081a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/x3p_rotate.R b/R/x3p_rotate.R
@@ -39,7 +39,7 @@ x3p_rotate <- function(x3p, angle = 90) {
   x3p_matrix_rotate <- x3p_cimg_rotate %>%
     as.matrix()
   # there should not be any values between 0 and shift_up
-  x3p_matrix_rotate[x3p_matrix_rotate < (shift_up / 2)] <- NA
+  x3p_matrix_rotate[x3p_matrix_rotate < (not_zero / 2)] <- NA
   x3p_matrix_rotate <- x3p_matrix_rotate - shift_up
 
   if (!is.null(x3p$mask)) {