Need isFrame for now

MichaelChirico · MichaelChirico · commit 1b363ad2009a · 2024-08-28T22:21:21.000Z
diff --git a/src/utils.c b/src/utils.c
@@ -507,9 +507,10 @@ bool isDataList(SEXP x) {
   return isNewList(x) && (!LENGTH(x) || (equalLens(x) && !isNull(getAttrib(x, R_NamesSymbol))));
 }
 
-// isDataTable(x) || isDataFrame(x) || isDataList(x)
+// TODO: use isDataFrame (when included in any R release).
+// isDataTable(x) || isFrame(x) || isDataList(x)
 bool perhapsDataTable(SEXP x) {
-  return isDataTable(x) || isDataFrame(x) || isDataList(x);
+  return isDataTable(x) || isFrame(x) || isDataList(x);
 }
 SEXP perhapsDataTableR(SEXP x) {
   SEXP ans = PROTECT(allocVector(LGLSXP, 1));

Original file line number	Diff line number	Diff line change
`@@ -507,9 +507,10 @@ bool isDataList(SEXP x) {`
`507`	`507`	`return isNewList(x) && (!LENGTH(x) \|\| (equalLens(x) && !isNull(getAttrib(x, R_NamesSymbol))));`
`508`	`508`	`}`
`509`	`509`
`510`		`-// isDataTable(x) \|\| isDataFrame(x) \|\| isDataList(x)`
	`510`	`+// TODO: use isDataFrame (when included in any R release).`
	`511`	`+// isDataTable(x) \|\| isFrame(x) \|\| isDataList(x)`
`511`	`512`	`bool perhapsDataTable(SEXP x) {`
`512`		`- return isDataTable(x) \|\| isDataFrame(x) \|\| isDataList(x);`
	`513`	`+ return isDataTable(x) \|\| isFrame(x) \|\| isDataList(x);`
`513`	`514`	`}`
`514`	`515`	`SEXP perhapsDataTableR(SEXP x) {`
`515`	`516`	`SEXP ans = PROTECT(allocVector(LGLSXP, 1));`