Remove a new non-api call

Author: jeroen

NEWS.md

@@ -1,3 +1,9 @@
+# xml2 1.3.8
+
+* Replace new "non-api" call IS_S4_OBJECT with Rf_isS4
+
+* Windows: update fallback libs (for R < 4.3) to libxml2 2.11.5
+
 # xml2 1.3.7
 
 * Windows: use libxml2 from Rtools if found

src/xml2_utils.h

@@ -26,7 +26,7 @@ inline int inherits3(SEXP x, const char *name) {
 inline const NodeType getNodeType(SEXP x) {
 
   // for fhircrackr
-  if (IS_S4_OBJECT(x)) {
+  if (Rf_isS4(x)) {
     if (inherits3(x, "xml_node")) {
       return(NodeType::node);
     } else if (inherits3(x, "xml_nodeset")) {