[[arrow::export]]
| 1590 | |
| 1591 | // [[arrow::export]] |
| 1592 | SEXP vec_to_Array(SEXP x, SEXP s_type) { |
| 1593 | if (Rf_inherits(x, "Array")) return x; |
| 1594 | |
| 1595 | bool type_inferred = Rf_isNull(s_type); |
| 1596 | std::shared_ptr<arrow::DataType> type; |
| 1597 | |
| 1598 | if (type_inferred) { |
| 1599 | type = arrow::r::InferArrowType(x); |
| 1600 | } else { |
| 1601 | type = cpp11::as_cpp<std::shared_ptr<arrow::DataType>>(s_type); |
| 1602 | } |
| 1603 | |
| 1604 | return cpp11::to_r6(arrow::r::vec_to_arrow_Array(x, type, type_inferred)); |
| 1605 | } |
| 1606 | |
| 1607 | // [[arrow::export]] |
| 1608 | std::shared_ptr<arrow::Array> DictionaryArray__FromArrays( |
no test coverage detected