From 2f82def0d0ba9980a05c36cc6b03f50680fedf61 Mon Sep 17 00:00:00 2001 From: jrafailov Date: Thu, 14 Mar 2024 16:27:39 -0400 Subject: [PATCH] evaluate all columns in gTrack y.field when concatenating --- R/gTrack.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/gTrack.R b/R/gTrack.R index 8ef2776e..4e61ece0 100644 --- a/R/gTrack.R +++ b/R/gTrack.R @@ -404,7 +404,8 @@ setValidity('gTrack', function(object) else T))) problems = c(problems, 'Some nonempty trackdata edges $to and $from fields are out of bounds (ie exceed the length of the data field of the corresponding gTrack item') - if (!is.null(formatting(object)$y.field) && !is.na(formatting(object)$y.field)) +# browser() + if (!is.null(formatting(object)$y.field) && !all(is.na(formatting(object)$y.field))) { nix = !is.na(object$y.field) & sapply(dat(object), inherits, 'GRanges') if (any(nix))