comparison MaxQuantProcessingScript.R @ 3:bae3a23461c9 draft

planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 3dcf0d08f006b888061ff83eadc65e550d751869
author galaxyp
date Tue, 31 Jan 2023 22:27:00 +0000
parents b76c75521d91
children b889e05ce77d
comparison
equal deleted inserted replaced
2:a5e7469dfdfa 3:bae3a23461c9
71 movetolast <- function(data, move) { 71 movetolast <- function(data, move) {
72 data[c(setdiff(names(data), move), move)] 72 data[c(setdiff(names(data), move), move)]
73 } 73 }
74 74
75 # Generate phosphopeptide and build list when applied 75 # Generate phosphopeptide and build list when applied
76 # nolint start: squash un-actionable cyclomatic_complexity warning
76 phosphopeptide_func <- function(df) { 77 phosphopeptide_func <- function(df) {
78 # nolint end
77 # generate peptide sequence and list of phosphopositions 79 # generate peptide sequence and list of phosphopositions
78 phosphoprobsequence <- 80 phosphoprobsequence <-
79 strsplit(as.character(df["Phospho (STY) Score diffs"]), "")[[1]] 81 strsplit(as.character(df["Phospho (STY) Score diffs"]), "")[[1]]
80 output <- vector() 82 output <- vector()
81 phosphopeptide <- "" 83 phosphopeptide <- ""