Fix metadata accessors

Closes #37
aoles · Mar 16, 2024 · 1ce1888 · 1ce1888
1 parent aa7fb59
commit 1ce1888
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: RBioFormats
-Version: 1.3.0
+Version: 1.3.1
 BioFormats: 6.12.0
 Title: R interface to Bio-Formats
 Description: An R package which interfaces the OME Bio-Formats Java library to

diff --git a/R/metadataAccessors.R b/R/metadataAccessors.R
@@ -32,7 +32,8 @@ seriesMetadata = function (x, series, ...) .getMetadata(x, series, ...)
 
 .getMetadata = function (x, series, ...) {
   ## metadata type equals accessor name
-  type = as.character(sys.call(-1L)[[1L]])
+  sys_call <- sys.call(-1L)[[1L]]
+  type = as.character(sys_call[[length(sys_call)]])# account for calls via `::`
 
   metadata = metadata(x)