bump version; update news

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via Plotly's JavaScript Graphing Library
-Version: 3.2.1
+Version: 3.3.1
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "cpsievert1@gmail.com"),
     person("Chris", "Parmer", role = c("aut", "cph"),

NEWS

@@ -1,3 +1,9 @@
+3.3.1 -- 10 Mar 2015
+
+BUGFIX:
+
+* Redundant legend entries are no longer shown.
+
 3.2.1 -- 10 Mar 2015
 
 BUGFIX:

R/ggplotly.R

@@ -585,7 +585,6 @@ gg2list <- function(p, width = NULL, height = NULL, mapping = "all", source = "A
   hashes <- vapply(traces, function(x) digest::digest(x[names(x) %in% props]), character(1))
   modes <- vapply(traces, function(x) x$mode %||% "", character(1))
   nhashes <- length(unique(hashes))
-  browser()
   if (nhashes < length(traces)) {
     mergedTraces <- vector("list", nhashes)
     for (i in unique(hashes)) {