closes #4 hopefully for good

ParkerICI · Jul 25, 2017 · c8b72af · c8b72af
1 parent d624cf1
commit c8b72af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fcs_io.R b/R/fcs_io.R
@@ -129,7 +129,7 @@ as_flowFrame <- function(exprs.m, source.frame = NULL) {
 #' @export
 write_flowFrame <- function(flowFrame, path) {
     f.name <- basename(path)
-    flowCore::keyword(flowFrame)$FIL <- f.name
+    flowCore::keyword(flowFrame)[["$FIL"]] <- f.name
     flowCore::write.FCS(flowFrame, path)
 }