removed warning message from melt

heike · Aug 20, 2015 · 771d473 · 771d473
1 parent 597d9ba
commit 771d473
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -11,7 +11,8 @@ Depends:
 Imports:
     ggplot2 (>= 0.9.2),
     reshape2,
-    plyr
+    plyr,
+    stats
 Suggests:
     RColorBrewer
 URL: http://github.com/heike/ggparallel

diff --git a/LICENSE b/LICENSE
@@ -1,2 +1,2 @@
-YEAR: 2012-2014
+YEAR: 2012-2015
 COPYRIGHT HOLDER: Heike Hofmann; Marie Vendettuoli
diff --git a/R/parallel.R b/R/parallel.R
@@ -256,7 +256,9 @@ ggparallel <- function(vars=list(), data, weight=NULL, method="angle",
     }
     gr[[1]] <-  list(gr[[1]], scale_size(guide="none", range=ratio*prange))
   }
+
   subdata <- data[,c("weight", unlist(vars))]
+  for (i in unlist(vars)) subdata[,i] <- as.character(subdata[,i])
   dfm <- melt(subdata, id.var="weight")
   names(dfm)[3] <- "Nodeset"
   dfm$Nodeset <- factor(dfm$Nodeset, levels=llist)