error about the function doQCRLSC in examples

[TwinkleKim]

hello,
when i run examples of doQCRLSC, i don't know why it occurs error like this:

?doQCRLSC
rm(list = ls())
para <- new("metaXpara")
pfile <- system.file("extdata/MTBLS79.txt",package = "metaX")
sfile <- system.file("extdata/MTBLS79_sampleList.txt",package = "metaX")
rawPeaks(para) <- read.delim(pfile,check.names = FALSE)[1:20,]
sampleListFile(para) <- sfile
para <- reSetPeaksData(para)
Reset data!
Convert <=0 to NA:121
para <- missingValueImpute(para)
missingValueImpute: value
Wed Nov 15 18:48:31 2023 Missing value imputation for 'value'
Missing value in total: 121
Missing value in QC sample: 18
Missing value in non-QC sample: 103
Wed Nov 15 18:48:31 2023 The ratio of missing value: 3.5174%
<=0: 0
Missing value in total after missing value inputation: 0
<=0 value in total after missing value inputation: 0
res <- doQCRLSC(para,cpu=1)
Using cpu: 1
The number of NA value in peaksData before QC-RLSC: 0
Error in is.null(para@sampleList) || is.na(para@sampleList) :
'length = 688' in coercion to 'logical(1)'

i can't understand how to solve it.
Thanks for your help.

[TwinkleKim]