Bug fix: arguments not concatenated

tractor · Jan 22, 2024 · 7ed557e · 7ed557e
1 parent 9d55d52
commit 7ed557e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tractor.base/R/dicom_dir.R b/tractor.base/R/dicom_dir.R
@@ -485,7 +485,7 @@ readDicomDirectory <- function (dicomDir, method = c("internal","divest"), readD
         {
             if (image$hasTags("effectiveReadoutTime"))
                 returnValue$echoSeparations <- image$getTags("effectiveReadoutTime")
-            else if (all(image$hasTags("echoSpacing", "epiFactor")))
+            else if (all(image$hasTags(c("echoSpacing", "epiFactor"))))
                 returnValue$echoSeparations <- image$getTags("echoSpacing") / 1e6 * (image$getTags("epiFactor") - 1)
             else
                 returnValue$echoSeparations <- rep(NA, image$nVolumes())