Use Rf_isObject() over OBJECT()

DavisVaughan · DavisVaughan · commit ce2375a02e31 · 2025-11-13T14:06:01.000-05:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # slider (development version)
 
+* Removed usage of non-API `OBJECT()`.
+
 # slider 0.3.2
 
 * Removed usage of non-API `STRING_PTR()` (#209).
diff --git a/src/params.c b/src/params.c
@@ -47,7 +47,7 @@ static SEXP check_scalar_lgl(SEXP x, SEXP x_arg) {
 // -----------------------------------------------------------------------------
 
 static bool is_unbounded(SEXP x) {
-  return !OBJECT(x) && TYPEOF(x) == REALSXP && REAL(x)[0] == R_PosInf;
+  return !Rf_isObject(x) && TYPEOF(x) == REALSXP && REAL(x)[0] == R_PosInf;
 }
 
 // -----------------------------------------------------------------------------

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ static SEXP check_scalar_lgl(SEXP x, SEXP x_arg) {`
`47`	`47`	`// -----------------------------------------------------------------------------`
`48`	`48`
`49`	`49`	`static bool is_unbounded(SEXP x) {`
`50`		`- return !OBJECT(x) && TYPEOF(x) == REALSXP && REAL(x)[0] == R_PosInf;`
	`50`	`+ return !Rf_isObject(x) && TYPEOF(x) == REALSXP && REAL(x)[0] == R_PosInf;`
`51`	`51`	`}`
`52`	`52`
`53`	`53`	`// -----------------------------------------------------------------------------`