From 72948d1d6b8b0d478d60f0eba772451045eefe4f Mon Sep 17 00:00:00 2001
From: mikejiang <mike@ozette.ai>
Date: Sun, 22 Jan 2023 15:55:47 -0800
Subject: [PATCH] fix cqc_delete #7

---
 DESCRIPTION | 2 +-
 R/cqc_fix.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 04b268a..1e46929 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -3,7 +3,7 @@ Type: Package
 Title: Quality control and standardization of cytometry data
 Version: 0.99.2
 Author: Mike Jiang, Jake Wagner, Greg Finak
-Maintainer: Mike Jiang <wjiang2@fhcrc.org>
+Maintainer: Mike Jiang <mike@ozette.com>
 Description: Provides quality control, quality assessment, and data standardization tools for cytometry. 
 Depends: R (>= 3.5.0)
 Imports: 
diff --git a/R/cqc_fix.R b/R/cqc_fix.R
index c400fff..19cc980 100644
--- a/R/cqc_fix.R
+++ b/R/cqc_fix.R
@@ -95,7 +95,7 @@ cqc_delete.cytoframe <- function(x, value, type, ...) {
   if (type == "channel") {
     cols <- flowWorkspace::colnames(x)
     j <- which(!cols %in% value)
-    flowWorkspace:::subset_cytoframe_by_cols(x@pointer, j - 1)
+    flowWorkspace:::subset_cytoframe_by_cols(x@pointer, as.integer(j - 1))
   } else if (type == "marker") {
     cf_rename_marker(x, value, "")
   } else if (type == "keyword") {