simplify perhapsDataTableR

MichaelChirico · MichaelChirico · commit 008abefcb0a1 · 2024-08-29T16:22:46.000Z
diff --git a/src/utils.c b/src/utils.c
@@ -513,10 +513,7 @@ bool perhapsDataTable(SEXP x) {
   return isDataTable(x) || isFrame(x) || isDataList(x);
 }
 SEXP perhapsDataTableR(SEXP x) {
-  SEXP ans = PROTECT(allocVector(LGLSXP, 1));
-  LOGICAL(ans)[0] = (int)perhapsDataTable(x);
-  UNPROTECT(1);
-  return ans;
+  return ScalarLogical(perhapsDataTable(x));
 }
 
 void internal_error(const char *call_name, const char *format, ...) {

Original file line number	Diff line number	Diff line change
`@@ -513,10 +513,7 @@ bool perhapsDataTable(SEXP x) {`
`513`	`513`	`return isDataTable(x) \|\| isFrame(x) \|\| isDataList(x);`
`514`	`514`	`}`
`515`	`515`	`SEXP perhapsDataTableR(SEXP x) {`
`516`		`- SEXP ans = PROTECT(allocVector(LGLSXP, 1));`
`517`		`- LOGICAL(ans)[0] = (int)perhapsDataTable(x);`
`518`		`- UNPROTECT(1);`
`519`		`- return ans;`
	`516`	`+ return ScalarLogical(perhapsDataTable(x));`
`520`	`517`	`}`
`521`	`518`
`522`	`519`	`void internal_error(const char call_name, const char format, ...) {`