From b4e453229126f475481793f8e3d095d7b297a68a Mon Sep 17 00:00:00 2001
From: const-ae <artjom31415@googlemail.com>
Date: Sat, 2 Jan 2021 19:57:37 +0100
Subject: [PATCH] Also fix issue in calculate_sparse_rank

---
 src/sample_rank.h | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

--- r-bioc-sparsematrixstats.orig/src/sample_rank.h
+++ r-bioc-sparsematrixstats/src/sample_rank.h
@@ -83,7 +83,11 @@
   if(na_handling == "keep"){
     for(int i = 0; i < vec_size; ++i){
       if(Rcpp::NumericVector::is_na(vec[i])){
-        result[positions[i]] = NA_REAL;
+        if(std::is_same<R, int>::value){
+          result[positions[i]] = NA_INTEGER;
+        }else{
+          result[positions[i]] = NA_REAL;
+        }
       }
     }
   }