v3.6.4 bugfix plot preview queued spectral processing

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Cardinal
 Type: Package
 Title: A mass spectrometry imaging toolbox for statistical analysis
-Version: 3.6.3
+Version: 3.6.4
 Date: 2021-11-21
 Authors@R: person("Kylie Ariel", "Bemis",
 	email = "[email protected]",

NEWS

@@ -1,4 +1,11 @@
 
+CHANGES IN VERSION 3.6.4 [2024-7-13]
+-----------------------------------
+
+BUG FIXES
+
+    o Bug fixes for 'plot()' on spectra with queued processing
+
 CHANGES IN VERSION 3.6.3 [2024-6-26]
 -----------------------------------
 

R/plot-spectra.R

@@ -151,11 +151,12 @@ setMethod("plot", c(x = "SpectralImagingExperiment", y = "missing"),
 		if ( isTRUE(superpose) )
 			warning("ignoring 'superpose'")
 		xi <- process(x[,i], spectra=vars_y, index=vars_x, BPPARAM=NULL)
+		ii <- setNames(seq_along(i), names(Y))
 		plot_pre <- .plot_spectra_formula(X, Y, formula,
 			by=by, groups="original", key=key,
 			n=n, downsampler=downsampler,
 			isPeaks=FALSE, ...)
-		plot_post <- plot(xi, formula=formula, i=seq_along(i),
+		plot_post <- plot(xi, formula=formula, i=ii,
 			groups="processed", superpose=FALSE,
 			n=n, downsampler=downsampler,
 			annPeaks="circle", ...)
@@ -227,11 +228,12 @@ setMethod("plot", c(x = "SpectralImagingArrays", y = "missing"),
 		if ( isTRUE(superpose) )
 			warning("ignoring 'superpose'")
 		xi <- process(x[i], spectra=vars_y, index=vars_x, BPPARAM=NULL)
+		ii <- setNames(seq_along(i), names(Y))
 		plot_pre <- .plot_spectra_formula(X, Y, formula,
 			by=by, groups="original", key=key,
 			n=n, downsampler=downsampler,
 			isPeaks=FALSE, ...)
-		plot_post <- plot(xi, formula=formula, i=seq_along(i),
+		plot_post <- plot(xi, formula=formula, i=ii,
 			groups="processed", superpose=FALSE,
 			n=n, downsampler=downsampler,
 			annPeaks="circle", ...)