Don't showlegend for line trace of geom_smooth

Author: cpsievert

R/ggplotly.R

@@ -219,19 +219,22 @@ gg2list <- function(p){
     # This extracts essential info for this geom/layer.
     if (L$geom$objname == "smooth") {
       # smooth is really a line + ribbon geom
-      misc$smoothRibbon <- TRUE
-      trace1 <- if (isTRUE(L$stat_params$se == FALSE)) {
+      # always draw the line
+      misc$smoothLine <- TRUE
+      trace1 <- layer2traces(L, df, misc)
+      trace1 <- lapply(trace1, function(x) { x$showlegend <- FALSE; x })
+      misc$smoothLine <- FALSE
+      # draw ribbon unless se = FALSE
+      trace2 <- if (isTRUE(L$stat_params$se == FALSE)) {
         NULL
       } else {
+        misc$smoothRibbon <- TRUE
         layer2traces(L, df, misc)
       }
-      misc$smoothRibbon <- FALSE
-      misc$smoothLine <- TRUE 
-      traces <- c(trace1, layer2traces(L, df, misc))
+      traces <- c(trace1, trace2)
     } else {
       traces <- layer2traces(L, df, misc)
     }
-
     possible.legends <- markLegends[[L$geom$objname]]
     actual.legends <- possible.legends[possible.legends %in% names(L$mapping)]
     layer.legends[[paste(i)]] <- actual.legends