marker.size expansion should be aware of lat/lon as well

cpsievert · cpsievert · commit 6791e4ffe7b4 · 2019-03-07T15:36:02.000-06:00
diff --git a/R/utils.R b/R/utils.R
@@ -510,7 +510,7 @@ verify_attr <- function(proposed, schema) {
         # markers -- in that case, if marker.size is an array 
         # of length 1 will result in just one marker
         # https://codepen.io/cpsievert/pen/aMmOza
-        n <- length(proposed[["x"]] %||% proposed[["y"]])
+        n <- length(proposed[["x"]] %||% proposed[["y"]] %||% proposed[["lat"]] %||% proposed[["lon"]])
         proposed$marker[["size"]] <- default(i(rep(s, n)))
       }
     }

Original file line number	Diff line number	Diff line change
`@@ -510,7 +510,7 @@ verify_attr <- function(proposed, schema) {`
`510`	`510`	`# markers -- in that case, if marker.size is an array`
`511`	`511`	`# of length 1 will result in just one marker`
`512`	`512`	`# https://codepen.io/cpsievert/pen/aMmOza`
`513`		`- n <- length(proposed[["x"]] %\|\|% proposed[["y"]])`
	`513`	`+ n <- length(proposed[["x"]] %\|\|% proposed[["y"]] %\|\|% proposed[["lat"]] %\|\|% proposed[["lon"]])`
`514`	`514`	`proposed$marker[["size"]] <- default(i(rep(s, n)))`
`515`	`515`	`}`
`516`	`516`	`}`