| 125 | } |
| 126 | |
| 127 | static inline std::shared_ptr<arrow::DataType> InferArrowTypeFromDataFrame( |
| 128 | cpp11::list x) { |
| 129 | R_xlen_t n = x.size(); |
| 130 | cpp11::strings names(x.attr(R_NamesSymbol)); |
| 131 | std::vector<std::shared_ptr<arrow::Field>> fields(n); |
| 132 | for (R_xlen_t i = 0; i < n; i++) { |
| 133 | fields[i] = arrow::field(names[i], InferArrowType(x[i])); |
| 134 | } |
| 135 | return arrow::struct_(std::move(fields)); |
| 136 | } |
| 137 | |
| 138 | template <> |
| 139 | std::shared_ptr<arrow::DataType> InferArrowTypeFromVector<VECSXP>(SEXP x) { |
no test coverage detected