Fix tiledb_array_schema() enumeration mapping

[cgiachalis]

This PR fixes #853.

For complete testing please use the included unit tests.

library(tiledb)

dom <- tiledb_domain(c(tiledb_dim(
  name = "id",
  domain = c(NULL, NULL),
  tile = NULL,
  type = "ASCII")))

attrs <- c(
  
  tiledb_attr(
    name = "col1",
    type = "INT32",
    ncells = 1,
    nullable = FALSE),
  tiledb_attr(
    name = "enum1",
    type = "INT32",
    ncells = 1,
    nullable = FALSE,
    enumeration = TRUE
  ),
  tiledb_attr(
    name = "col2",
    type = "INT32",
    ncells = 1,
    nullable = FALSE
  ),
  tiledb_attr(
    name = "enum2",
    type = "INT32",
    ncells = 1,
    nullable = FALSE,
    enumeration = TRUE
  ),
  tiledb_attr(
    name = "enum3",
    type = "INT32",
    ncells = 1,
    nullable = FALSE,
    enumeration = TRUE
  )
)

# case 1 (ordered enums)
uri <- tempfile()

enums <- list(
  enum1 =  c("A", "B"),
  enum2 = c("yes", "no"),
  enum3 = c("aa")
)

sch <- tiledb_array_schema(domain = dom, attrs = attrs, sparse = TRUE, enumerations = enums)
tiledb_array_create(uri, sch)
arr <- tiledb_array(uri)

tiledb_array_has_enumeration(arr)

Before

#>  col1 enum1  col2 enum2 enum3 
#>  TRUE  TRUE  TRUE  TRUE  TRUE

After

#>  col1 enum1  col2 enum2 enum3 
#> FALSE  TRUE FALSE  TRUE  TRUE