# NOT RUN {
schema <- tiledb_array_schema(
dom = tiledb_domain(
dims = c(tiledb_dim("rows", c(1L, 4L), 4L, "INT32"),
tiledb_dim("cols", c(1L, 4L), 4L, "INT32"))),
attrs = c(tiledb_attr("a", type = "INT32")),
cell_order = "COL_MAJOR",
tile_order = "COL_MAJOR",
sparse = FALSE)
schema
# }
Run the code above in your browser using DataLab