skip qcTarget if the data frame is empty

dwightkuo · dwightkuo · commit 48b5822844ea · 2026-01-12T15:26:28.000-08:00
diff --git a/R/readNULISAseq.R b/R/readNULISAseq.R
@@ -696,7 +696,7 @@ readNULISAseq <- function(file,
       qcXML$qcSample$sampleName <- dplyr::left_join(data.frame(sampleBarcode=qcXML$qcSample$sampleBarcode), samples, by="sampleBarcode")$sampleName
     }
     
-    if(!is.null(qcXML$qcTarget)){
+    if(!is.null(qcXML$qcTarget) && nrow(qcXML$qcTarget) > 0){
       qcXML$qcTarget <- dplyr::rename(qcXML$qcTarget, targetBarcode=dplyr::any_of("sample"))
       qcXML$qcTarget$QCoperator  <- qcXML$TargetThresh$operators[qcXML$qcTarget$flagName]
       qcXML$qcTarget$QCthreshold <- qcXML$TargetThresh$thresholds[qcXML$qcTarget$flagName]

Original file line number	Diff line number	Diff line change
`@@ -696,7 +696,7 @@ readNULISAseq <- function(file,`
`696`	`696`	`qcXML$qcSample$sampleName <- dplyr::left_join(data.frame(sampleBarcode=qcXML$qcSample$sampleBarcode), samples, by="sampleBarcode")$sampleName`
`697`	`697`	`}`
`698`	`698`
`699`		`- if(!is.null(qcXML$qcTarget)){`
	`699`	`+ if(!is.null(qcXML$qcTarget) && nrow(qcXML$qcTarget) > 0){`
`700`	`700`	`qcXML$qcTarget <- dplyr::rename(qcXML$qcTarget, targetBarcode=dplyr::any_of("sample"))`
`701`	`701`	`qcXML$qcTarget$QCoperator <- qcXML$TargetThresh$operators[qcXML$qcTarget$flagName]`
`702`	`702`	`qcXML$qcTarget$QCthreshold <- qcXML$TargetThresh$thresholds[qcXML$qcTarget$flagName]`