From 77eb20350854ce8b05092b93d22792a8c76ec51c Mon Sep 17 00:00:00 2001
From: Rob Marty <robmarty3@gmail.com>
Date: Wed, 20 Dec 2023 15:36:29 -0500
Subject: [PATCH] fill value

---
 R/blackmarbler.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/blackmarbler.R b/R/blackmarbler.R
index 053d10c..776db02 100644
--- a/R/blackmarbler.R
+++ b/R/blackmarbler.R
@@ -91,7 +91,7 @@ remove_fill_value <- function(x, variable){
     "OffNadir_Composite_Snow_Free_Std")
   ){
     
-    if(x %in% 65535) x <- NA
+    x[][x[] == 65535] <- NA
     
   }