Version 1.0.3: better messaging

DrCytometer · DrCytometer · commit 3eade89230bd · 2026-02-21T13:05:16.000Z
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: AutoSpectralRcpp
 Type: Package
 Title: Fast Tools for Unmxing Spectral Flow Cytometry Data
-Version: 1.0.2
+Version: 1.0.3
 Authors@R: c(
     person(
       "Oliver", "Burton",
diff --git a/R/unmix_autospectral_rcpp.R b/R/unmix_autospectral_rcpp.R
@@ -161,6 +161,14 @@ unmix.autospectral.rcpp <- function(
     }
   }
 
+  # tell the user what's been selected
+  if ( verbose ) {
+    if ( optimize )
+      message( "Per-cell autofluorescence extraction and fluorophore optimization will be performed." )
+    else
+      message( "Only per-cell autofluorescence extraction will be performed." )
+  }
+
   # set variant count based on speed
   if ( is.null( n.variants ) ) {
     n.variants <- switch( match.arg( speed ), "fast" = 1L, "medium" = 3L, "slow" = 10L )

Original file line number	Diff line number	Diff line change
`@@ -161,6 +161,14 @@ unmix.autospectral.rcpp <- function(`
`161`	`161`	`}`
`162`	`162`	`}`
`163`	`163`
	`164`	`+ # tell the user what's been selected`
	`165`	`+ if ( verbose ) {`
	`166`	`+ if ( optimize )`
	`167`	`+ message( "Per-cell autofluorescence extraction and fluorophore optimization will be performed." )`
	`168`	`+ else`
	`169`	`+ message( "Only per-cell autofluorescence extraction will be performed." )`
	`170`	`+ }`
	`171`	`+`
`164`	`172`	`# set variant count based on speed`
`165`	`173`	`if ( is.null( n.variants ) ) {`
`166`	`174`	`n.variants <- switch( match.arg( speed ), "fast" = 1L, "medium" = 3L, "slow" = 10L )`