Skip to content

Commit

Permalink
broken
Browse files Browse the repository at this point in the history
  • Loading branch information
NorStorz committed Sep 30, 2024
1 parent a6a0a08 commit b9ca1e5
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 3 deletions.
5 changes: 3 additions & 2 deletions R/FragmentMatrixFunctions.R
Original file line number Diff line number Diff line change
Expand Up @@ -1458,7 +1458,7 @@ convertToProjectFile <- function(filePeakMatrixPath,
returnObj$numberOfSpectraDiscardedDueToNoPeaks <- numberOfSpectraDiscardedDueToNoPeaks
returnObj$numberOfSpectraDiscardedDueToMaxIntensity <- numberOfSpectraDiscardedDueToMaxIntensity
returnObj$numberOfSpectraDiscardedDueToTooHeavy <- numberOfSpectraDiscardedDueToTooHeavy

returnObj$qfeatures <- qfeatures
return(returnObj)
}

Expand Down Expand Up @@ -1855,7 +1855,8 @@ convertToProjectFile2 <- function(filePeakMatrixQF,
numberOfUnmappedSpectra = numberOfUnmappedSpectra,
numberOfUnmappedPrecursors = numberOfUnmappedPrecursors,
numberOfUnmappedPrecursorsMz = numberOfUnmappedPrecursorsMz,
numberOfUnmappedPrecursorsRt = numberOfUnmappedPrecursorsRt
numberOfUnmappedPrecursorsRt = numberOfUnmappedPrecursorsRt,
qfeatures <- qfeatures
)

if(!is.na(progress)) if(progress) setProgress(1) else print("Ready")
Expand Down
2 changes: 2 additions & 0 deletions R/parsePeakAbundanceMatrixQF.R
Original file line number Diff line number Diff line change
Expand Up @@ -161,6 +161,8 @@ parsePeakAbundanceMatrixQF <- function(qfeatures,
returnObj$dataFrame <- dataFrame
returnObj$vals <- vals

## qfeatures
returnObj$qfeatures <- qfeatures
## meta
returnObj$oldFormat <- oldFormat
returnObj$numberOfPrecursors <- numberOfPrecursors
Expand Down
2 changes: 1 addition & 1 deletion inst/MetFamily/app_files/server_guiTabInput.R
Original file line number Diff line number Diff line change
Expand Up @@ -391,7 +391,7 @@ importData <- function(importMS1andMS2data){
error <- NULL
withProgress(message = 'Processing matrix...', value = 0, {
lines <- sparseMatrixToString(matrixRows = resultObj$matrixRows, matrixCols = resultObj$matrixCols, matrixVals = resultObj$matrixVals, parameterSet = parameterSet)

qfeatures <- resultObj$qfeatures
#################################################
## process project file

Expand Down

0 comments on commit b9ca1e5

Please sign in to comment.