fix the definition of has_fill(). Closes #1292, closes #1367

Author: cpsievert

R/plotly_build.R

@@ -1005,4 +1005,6 @@ supplyUserPalette <- function(default, user) {
 
 # helper functions
 array_ok <- function(attr) isTRUE(tryNULL(attr$arrayOk))
-has_fill <- function(trace) isTRUE(trace$fill %in% c('tozeroy', 'tozerox', 'tonexty', 'tonextx', 'toself', 'tonext'))
+has_fill <- function(trace) {
+  has_attr(trace$type %||% "scatter", "fillcolor")
+}