From 32a40a737d6cc1ad01943e5a0fa56b7cf02ad028 Mon Sep 17 00:00:00 2001
From: Dirk Eddelbuettel <edd@debian.org>
Date: Thu, 6 Jan 2022 16:53:57 -0600
Subject: [PATCH] add cell value getter for dimensions

---
 NAMESPACE                          |  1 +
 R/Dim.R                            | 17 +++++++++++++++++
 man/tiledb_dim_get_cell_val_num.Rd | 20 ++++++++++++++++++++
 3 files changed, 38 insertions(+)
 create mode 100644 man/tiledb_dim_get_cell_val_num.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 69b1cb9fff..31ac65c0b2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -118,6 +118,7 @@ export(tiledb_datatype_R_type)
 export(tiledb_delete_metadata)
 export(tiledb_dense)
 export(tiledb_dim)
+export(tiledb_dim_get_cell_val_num)
 export(tiledb_domain)
 export(tiledb_domain_get_dimension_from_index)
 export(tiledb_domain_get_dimension_from_name)
diff --git a/R/Dim.R b/R/Dim.R
index 845143b7be..acbbcf474d 100644
--- a/R/Dim.R
+++ b/R/Dim.R
@@ -240,3 +240,20 @@ setReplaceMethod("filter_list", "tiledb_dim", function(x, value) {
   x@ptr <- libtiledb_dimension_set_filter_list(x@ptr, value@ptr)
   x
 })
+
+## Generic in Attribute.R
+
+#' @rdname tiledb_dim_get_cell_val_num
+#' @export
+setMethod("cell_val_num", signature(object = "tiledb_dim"), function(object) {
+    libtiledb_dim_get_cell_val_num(object@ptr)
+})
+
+#' Return the number of scalar values per dimension cell
+#'
+#' @param object `tiledb_dim` object
+#' @return integer number of cells
+#' @export
+tiledb_dim_get_cell_val_num <- function(object) {
+    libtiledb_dim_get_cell_val_num(object@ptr)
+}
diff --git a/man/tiledb_dim_get_cell_val_num.Rd b/man/tiledb_dim_get_cell_val_num.Rd
new file mode 100644
index 0000000000..f226e8a49c
--- /dev/null
+++ b/man/tiledb_dim_get_cell_val_num.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/Dim.R
+\name{cell_val_num,tiledb_dim-method}
+\alias{cell_val_num,tiledb_dim-method}
+\alias{tiledb_dim_get_cell_val_num}
+\title{Return the number of scalar values per dimension cell}
+\usage{
+\S4method{cell_val_num}{tiledb_dim}(object)
+
+tiledb_dim_get_cell_val_num(object)
+}
+\arguments{
+\item{object}{\code{tiledb_dim} object}
+}
+\value{
+integer number of cells
+}
+\description{
+Return the number of scalar values per dimension cell
+}