buffer <- nanoarrow_buffer_init()
nanoarrow_buffer_append(buffer, 1:5)
array <- nanoarrow_array_modify(
nanoarrow_array_init(na_int32()),
list(length = 5, buffers = list(NULL, buffer))
)
as.vector(array)
Run the code above in your browser using DataLab