tibble support

PavlidisLab · Oct 10, 2018 · 78efee0 · 78efee0
1 parent e17e9d4
commit 78efee0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/R/markerGeneSelection.R b/R/markerGeneSelection.R
@@ -41,6 +41,8 @@ markerCandidates = function(design,
                             regionHierarchy = NULL,
                             geneID = 'Gene.Symbol',
                             seed = NULL){
+
+    design %<>% as.data.frame()
     # source('R/regionHierarchy.R')
     # so that I wont fry my laptop
     if (parallel::detectCores()<cores){

diff --git a/R/regionize.R b/R/regionize.R
@@ -8,6 +8,7 @@
 #' it will be represented as an NA, otherwise it'll have the cell type name indicated in the region
 #' @export
 regionize = function(design,regionNames,groupNames, regionHierarchy = NULL){
+    design %<>% as.data.frame
     # if a hierarchy is not provided, create one with a single layer
     if (is.null(regionHierarchy)){
         regionHierarchy = vector(mode='list',