From 73f2a73ad99ac945676bfbbb9be357a54f90b734 Mon Sep 17 00:00:00 2001 From: Quentin Ruin Date: Tue, 24 Sep 2024 14:47:54 +0200 Subject: [PATCH] Update .R according to lintr failures --- tools/mzxmlshaper/mzXMLShaper.R | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/tools/mzxmlshaper/mzXMLShaper.R b/tools/mzxmlshaper/mzXMLShaper.R index 87eea3844..f15ca77d3 100644 --- a/tools/mzxmlshaper/mzXMLShaper.R +++ b/tools/mzxmlshaper/mzXMLShaper.R @@ -3,7 +3,7 @@ # R version 4.3.3 # Conversion tool mzXMLShaper.R (former cdf2mzml) # Author: Quentin RUIN -# Creation: 25/04/2023 +# Creation date: 25/04/2023 # Last updated: 09/09/2024 cat("\nJob starting time:\n", format(Sys.time(), "%a %d %b %Y %X"), "\n\n") @@ -31,15 +31,11 @@ pks <- mzR::spectra(spectrum) ## Get the header hdr <- mzR::header(spectrum) - if (outputfileformat == 'mzml') - { - writeMSData(pks, file = outputfilename, outformat = 'mzml', header = hdr) - } +if (outputfileformat=="mzml") +{writeMSData(pks, file = outputfilename, outformat = "mzml", header = hdr)} - if (outputfileformat == 'mzXml') - { - writeMSData(pks, file = outputfilename, outformat = 'mzxml', header = hdr) - } +if (outputfileformat=="mzXml") +{writeMSData(pks, file = outputfilename, outformat = "mzxml", header = hdr)} cat("\n--------------------------------------------------------------------",