Be more careful about searching for default aesthetics, closes #1457

cpsievert · cpsievert · commit 42f0d106c8c5 · 2019-03-07T17:48:15.000-06:00
diff --git a/R/layers2traces.R b/R/layers2traces.R
@@ -999,7 +999,7 @@ aes2plotly <- function(data, params, aes = "size") {
   defaults <- if (inherits(data, "GeomSf")) {
     type <- if (any(grepl("point", class(data)))) "point" else if (any(grepl("line", class(data)))) "line" else ""
     ggfun("default_aesthetics")(type)
-  } else {
+  } else if ("default_aes" %in% names(ggfun(geom))) {
     ggfun(geom)$default_aes
   }
   

Original file line number	Diff line number	Diff line change
`@@ -999,7 +999,7 @@ aes2plotly <- function(data, params, aes = "size") {`
`999`	`999`	`defaults <- if (inherits(data, "GeomSf")) {`
`1000`	`1000`	`type <- if (any(grepl("point", class(data)))) "point" else if (any(grepl("line", class(data)))) "line" else ""`
`1001`	`1001`	`ggfun("default_aesthetics")(type)`
`1002`		`- } else {`
	`1002`	`+ } else if ("default_aes" %in% names(ggfun(geom))) {`
`1003`	`1003`	`ggfun(geom)$default_aes`
`1004`	`1004`	`}`
`1005`	`1005`