Fixing PROTECT issue to fix rchk

Author: dipterix

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: filearray
 Type: Package
 Title: File-Backed Array for Out-of-Memory Computation
-Version: 0.2.0.9000
+Version: 0.2.0.9001
 Language: en-US
 Encoding: UTF-8
 License: LGPL-3

src/utils.cpp

@@ -207,10 +207,10 @@ SEXP dropDimension(SEXP x){
     // return(Rf_DropDims(x));
 
     PROTECT(x);
-    SEXP dims = Rf_getAttrib(x, R_DimSymbol);
+    SEXP dims = PROTECT(Rf_getAttrib(x, R_DimSymbol));
 
     if (dims == R_NilValue) {
-        UNPROTECT(1);
+        UNPROTECT(2);
         return x;
     }
 
@@ -222,7 +222,7 @@ SEXP dropDimension(SEXP x){
         if (dim[i] != 1) n++;
     }
     if (n == ndims) {
-        UNPROTECT(1);
+        UNPROTECT(2);
         return x;
     }
 
@@ -310,7 +310,7 @@ SEXP dropDimension(SEXP x){
         }
         UNPROTECT(2);
     }
-    UNPROTECT(2);
+    UNPROTECT(3);
     return x;
 }