fixed bug with duplicated keywords

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: premessa
 Type: Package
 Title: R package for pre-processing of flow and mass cytometry data
-Version: 0.2.0
+Version: 0.2.1
 Author: "Pier Federico Gherardini <pfgherardini@parkerici.org> [aut, cre]"
 Description: This package includes panel editing/renaming for FCS files, bead-based normalization and debarcoding.
 Imports: shiny (>= 0.14), flowCore, reshape, ggplot2, hexbin, gridExtra, rhandsontable, jsonlite

R/fcs_io.R

@@ -176,6 +176,10 @@ write_fcs <- function(fcs, out.name) {
     keys <- fcs$keywords
     keys <- keys[grep("\\$P[0-9]+.", names(keys), invert = T)]
 
+    # Exclude keywords that will be written with the new file
+    excl.keywords <- c("FCSversion", "$BEGINANALYSIS", "$BEGINSTEXT", "$BYTEORD", "$DATATYPE", "$ENDANALYSIS",
+        "$ENDSTEXT", "$MODE", "$NEXTDATA", "$TOT", "$PAR", "$BEGINDATA", "$ENDDATA")
+    keys <- keys[!(names(keys) %in% excl.keywords)]
     flow.frame <- flowCore::flowFrame(fcs$m)
     flow.frame <- update_flowFrame_keywords(flow.frame, fcs$m, fcs$desc, data.range = 262144)
     flowCore::keyword(flow.frame) <- keys