Commit made by the Bioconductor Git-SVN bridge.

Consists of 1 commit(s).

Commit information:

    Commit id: cd025fb
    Commit message:
    Make sure counts is an integer vector, when passed as a list
    Committed by Kevin Ushey <kevinushey at gmail.com>
    Commit date: 2014-04-03T16:20:19-07:00

From: Bioconductor Git-SVN Bridge <bioc-sync@bioconductor.org>

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/COMPASS@88400 bc3139a8-67e5-0310-9ffc-ced21a209358

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: COMPASS
 Type: Package
 Title: Combinatorial Polyfunctionality Analysis of Single Cells
-Version: 1.1.6
+Version: 1.1.7
 Date: 2014-02-11
 Authors@R: c( person("Lynn", "Lin", role="aut", email="llin@fhcrc.org"),
     person("Kevin", "Ushey", role=c("aut", "cre"), email="kushey@fhcrc.org"),

R/COMPASSContainer.R

@@ -40,6 +40,11 @@ COMPASSContainer <- function(data, counts, meta,
     stop("'", deparse(substitute(counts)), "' must have its 'names' ",
       "attribute set", call.=FALSE)
 
+  if (is.list(counts)) {
+    counts <- unlist(counts)
+  }
+  storage.mode(counts) <- "integer"
+
   ## remove NULLs
   null_data <- names(data)[sapply(data, is.null)]
   if (length(null_data)) {