Reapply "Restrict workaround to R-devel"

This reverts commit 1578c4968aeeaaa583e06ec2100ffdb72de93211.
duckdb · Jul 4, 2024 · eda4730 · eda4730
1 parent 0f75f95
commit eda4730
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/inst/include/cpp11/r_vector.hpp b/inst/include/cpp11/r_vector.hpp
@@ -899,7 +899,13 @@ inline void r_vector<T>::clear() {
 
 inline SEXP truncate(SEXP x, R_xlen_t length, R_xlen_t capacity) {
   // Avoid SETLENGTH() and SET_TRUELENGTH() which trigger a warning on R-devel 4.5
+#if R_VERSION >= R_Version(3, 4, 0) && R_VERSION < R_Version(4, 5, 0)
+  SETLENGTH(x, length);
+  SET_TRUELENGTH(x, capacity);
+  SET_GROWABLE_BIT(x);
+#else
   x = safe[Rf_lengthgets](x, length);
+#endif
   return x;
 }