attempt to fix the C stack error in RStudio

zhengxwen · zhengxwen · commit 1678a9ba3f43 · 2022-10-27T23:35:23.000-05:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: HIBAG
 Type: Package
 Title: HLA Genotype Imputation with Attribute Bagging
-Version: 1.33.2
-Date: 2022-08-21
+Version: 1.33.3
+Date: 2022-10-27
 Depends: R (>= 3.2.0)
 Imports: methods, RcppParallel
 Suggests: parallel, ggplot2, reshape2, gdsfmt, SNPRelate, SeqArray, knitr,
diff --git a/NEWS b/NEWS
@@ -1,8 +1,10 @@
-CHANGES IN VERSION 1.33.2
+CHANGES IN VERSION 1.34.0
 -------------------------
 
     o fix the compiler issue on Mac M1 chip
 
+    o fix the C stack error in RStudio
+
 
 CHANGES IN VERSION 1.32.0
 -------------------------
diff --git a/src/HIBAG.cpp b/src/HIBAG.cpp
@@ -467,7 +467,7 @@ static void model_free(SEXP ptr_obj)
 static SEXP new_model_id(int id, CAttrBag_Model *mod_ptr)
 {
 	SEXP ans = PROTECT(ScalarInteger(id));
-	SEXP ptr = PROTECT(R_MakeExternalPtr(mod_ptr, R_NilValue, ans));
+	SEXP ptr = PROTECT(R_MakeExternalPtr(mod_ptr, R_NilValue, R_NilValue));
 	R_RegisterCFinalizerEx(ptr, model_free, (Rboolean)TRUE);
 	Rf_setAttrib(ans, install("handle_ptr"), ptr);
 	UNPROTECT(2);

Original file line number	Diff line number	Diff line change
`@@ -467,7 +467,7 @@ static void model_free(SEXP ptr_obj)`
`467`	`467`	`static SEXP new_model_id(int id, CAttrBag_Model *mod_ptr)`
`468`	`468`	`{`
`469`	`469`	`SEXP ans = PROTECT(ScalarInteger(id));`
`470`		`- SEXP ptr = PROTECT(R_MakeExternalPtr(mod_ptr, R_NilValue, ans));`
	`470`	`+ SEXP ptr = PROTECT(R_MakeExternalPtr(mod_ptr, R_NilValue, R_NilValue));`
`471`	`471`	`R_RegisterCFinalizerEx(ptr, model_free, (Rboolean)TRUE);`
`472`	`472`	`Rf_setAttrib(ans, install("handle_ptr"), ptr);`
`473`	`473`	`UNPROTECT(2);`