1 files changed, 73 insertions, 0 deletions
diff --git a/src/arrow/r/inst/include/cpp11/list_of.hpp b/src/arrow/r/inst/include/cpp11/list_of.hpp
new file mode 100644
index 000000000..d9b8f8020
--- /dev/null
+++ b/src/arrow/r/inst/include/cpp11/list_of.hpp
@@ -0,0 +1,73 @@
+// cpp11 version: 0.3.1.1
+// vendored on: 2021-08-11
+#pragma once
+
+#include <string>  // for string, basic_string
+
+#include "cpp11/R.hpp"     // for R_xlen_t, SEXP, SEXPREC, LONG_VECTOR_SUPPORT
+#include "cpp11/list.hpp"  // for list
+
+namespace cpp11 {
+
+template <typename T>
+class list_of : public list {
+ public:
+  list_of(const list& data) : list(data) {}
+
+#ifdef LONG_VECTOR_SUPPORT
+  T operator[](int pos) { return operator[](static_cast<R_xlen_t>(pos)); }
+#endif
+
+  T operator[](R_xlen_t pos) { return list::operator[](pos); }
+
+  T operator[](const char* pos) { return list::operator[](pos); }
+
+  T operator[](const std::string& pos) { return list::operator[](pos.c_str()); }
+};
+
+namespace writable {
+template <typename T>
+class list_of : public writable::list {
+ public:
+  list_of(const list& data) : writable::list(data) {}
+  list_of(R_xlen_t n) : writable::list(n) {}
+
+  class proxy {
+   private:
+    writable::list::proxy data_;
+
+   public:
+    proxy(const writable::list::proxy& data) : data_(data) {}
+
+    operator T() const { return static_cast<SEXP>(*this); }
+    operator SEXP() const { return static_cast<SEXP>(data_); }
+#ifdef LONG_VECTOR_SUPPORT
+    typename T::proxy operator[](int pos) { return static_cast<T>(data_)[pos]; }
+#endif
+    typename T::proxy operator[](R_xlen_t pos) { return static_cast<T>(data_)[pos]; }
+    proxy operator[](const char* pos) { static_cast<T>(data_)[pos]; }
+    proxy operator[](const std::string& pos) { return static_cast<T>(data_)[pos]; }
+    proxy& operator=(const T& rhs) {
+      data_ = rhs;
+
+      return *this;
+    }
+  };
+
+#ifdef LONG_VECTOR_SUPPORT
+  proxy operator[](int pos) {
+    return {writable::list::operator[](static_cast<R_xlen_t>(pos))};
+  }
+#endif
+
+  proxy operator[](R_xlen_t pos) { return writable::list::operator[](pos); }
+
+  proxy operator[](const char* pos) { return {writable::list::operator[](pos)}; }
+
+  proxy operator[](const std::string& pos) {
+    return writable::list::operator[](pos.c_str());
+  }
+};
+}  // namespace writable
+
+}  // namespace cpp11