Fix the potential issue of UNPROTECT_PTR

Author: wulingyun

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: Corbi
-Version: 0.4-2
+Version: 0.4-3
 Title: Collection of Rudimentary Bioinformatics Tools
 Description: Provides a bundle of basic and fundamental bioinformatics tools,
     such as network querying and alignment, subnetwork extraction and search,
@@ -16,4 +16,4 @@ VignetteBuilder: knitr
 License: GPL (>= 2)
 BugReports: https://github.com/wulingyun/Corbi/issues
 URL: https://github.com/wulingyun/Corbi
-RoxygenNote: 6.0.1
+RoxygenNote: 6.1.1

man/net_align.Rd

@@ -24,7 +24,7 @@ void SetListElement(SEXP list, int i, const char *tag, SEXP value)
 		PROTECT(_names = NEW_STRING(length(list)));
 		SET_STRING_ELT(_names, i, mkChar(tag));
 		setAttrib(list, R_NamesSymbol, _names);
-		UNPROTECT_PTR(_names);
+		UNPROTECT(1);
 	}
 	else
 		SET_STRING_ELT(_names, i, mkChar(tag));
@@ -40,7 +40,7 @@ void SetDim2(SEXP array, int x1, int x2)
 	INTEGER_POINTER(_dim)[0] = x1;
 	INTEGER_POINTER(_dim)[1] = x2;
 	SET_DIM(array, _dim);
-	UNPROTECT_PTR(_dim);
+	UNPROTECT(1);
 }
 
 void SetDim3(SEXP array, int x1, int x2, int x3)
@@ -51,7 +51,7 @@ void SetDim3(SEXP array, int x1, int x2, int x3)
 	INTEGER_POINTER(_dim)[1] = x2;
 	INTEGER_POINTER(_dim)[2] = x3;
 	SET_DIM(array, _dim);
-	UNPROTECT_PTR(_dim);
+	UNPROTECT(1);
 }
 
 void SetDim4(SEXP array, int x1, int x2, int x3, int x4)
@@ -63,7 +63,7 @@ void SetDim4(SEXP array, int x1, int x2, int x3, int x4)
 	INTEGER_POINTER(_dim)[2] = x3;
 	INTEGER_POINTER(_dim)[3] = x4;
 	SET_DIM(array, _dim);
-	UNPROTECT_PTR(_dim);
+	UNPROTECT(1);
 }
 
 /* sampling method */