From 5f00d327473ec7217356b6003e821a7caecc2ff8 Mon Sep 17 00:00:00 2001
From: Vivian Nguyen <vivian@tiledb.com>
Date: Wed, 11 Dec 2024 16:08:48 -0800
Subject: [PATCH] Correct R non_empty_domain

---
 apis/r/src/rinterface.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/apis/r/src/rinterface.cpp b/apis/r/src/rinterface.cpp
index 4b23663a90..65c99b5d55 100644
--- a/apis/r/src/rinterface.cpp
+++ b/apis/r/src/rinterface.cpp
@@ -281,7 +281,7 @@ Rcpp::NumericVector maxshape(
 // [[Rcpp::export]]
 SEXP non_empty_domain(
     const std::string& uri, Rcpp::XPtr<somactx_wrap_t> ctxxp) {
-    auto sdf = tdbs::SOMADataFrame::open(uri, OpenMode::read, ctxxp->ctxptr);
+    auto sdf = tdbs::SOMAArray::open(OpenMode::read, uri, ctxxp->ctxptr);
     tdbs::ArrowTable arrow_table = sdf->get_non_empty_domain();
     SEXP retval = convert_domainish(arrow_table);
     sdf->close();