|
...
|
...
|
@@ -21,8 +21,9 @@ setMethod("specParams",
|
|
21
|
21
|
signature = "mzRident",
|
|
22
|
22
|
function(object) {
|
|
23
|
23
|
pars <- object@backend$getSpecParams()
|
|
24
|
|
- if ("scan.number.s." %in% names(pars) & !is.numeric(pars[, "scan.number.s."]))
|
|
25
|
|
- pars[, "scan.number.s."] <- as.numeric(as.character(pars[, "scan.number.s."]))
|
|
|
24
|
+ if ("scan.number.s." %in% names(pars))
|
|
|
25
|
+ if (!is.numeric(pars[, "scan.number.s."]))
|
|
|
26
|
+ pars[, "scan.number.s."] <- as.numeric(as.character(pars[, "scan.number.s."]))
|
|
26
|
27
|
return(pars)
|
|
27
|
28
|
})
|
|
28
|
29
|
|
