avoid hand-coding exceptions when searching for axis keys in supply defaults, closes #1261

Author: cpsievert

R/utils.R

@@ -349,13 +349,10 @@ supply_defaults <- function(p) {
       list(domain = geoDomain), p$x$layout[[p$x$layout$mapType]]
     )
   } else {
-    axes <- if (is_type(p, "scatterternary"))  {
-      c("aaxis", "baxis", "caxis") 
-    } else if (is_type(p, "pie") || is_type(p, "parcoords") || is_type(p, "sankey") || is_type(p, "table")) {
-      NULL
-    } else {
-      c("xaxis", "yaxis")
-    }
+    types <- vapply(p$x$data, function(tr) tr[["type"]] %||% "scatter", character(1))
+    axes <- unlist(lapply(types, function(x) {
+      grep("^[a-z]axis$", names(Schema$traces[[x]]$attributes), value = TRUE) %||% NULL
+    }))
     for (axis in axes) {
       p$x$layout[[axis]] <- modify_list(
         list(domain = c(0, 1), automargin = TRUE), p$x$layout[[axis]]