test-show.r

#!/usr/bin/env Rscript

library(tiledb)

uri  <- "tiledb://TileDB-Inc/gtex-analysis-rnaseqc-gene-tpm"

arr  <- tiledb_array(uri, query_type="READ", as.data.frame=TRUE)
sch <- schema(arr);
cat("SCHEMA\n")
show(sch)

fl   <- filter_list(sch)
cat("\nFILTER_LIST\n")
show(fl)

dom  <- domain(sch)
cat("\nDOMAIN\n")
show(dom)

ndim <- tiledb_ndim(dom)
cat("\nNDIM\n")
show(ndim)

dims <- dimensions(dom)
cat("\nDIM1\n")
show(dims[[1]])
cat("\nDIM2\n")
show(dims[[2]])

cat("\nDIM1 FL\n")
show(filter_list(dims[[1]]))
cat("\nDIM2 FL\n")
show(filter_list(dims[[2]]))

nattr <- length(attrs(sch))
cat("\nNATTR\n")
show(nattr)

attr1 <- attrs(sch, 1)
cat("\nATTR1\n")
show(attr1)

fla <- filter_list(attr1)
cat("\nATTR1 FL\n")
show(fla[0])