Return NULL if dplyr::group_vars() errors

cpsievert · cpsievert · commit 9527a9e418de · 2018-11-06T10:03:29.000-06:00
diff --git a/R/plotly_build.R b/R/plotly_build.R
@@ -144,7 +144,7 @@ plotly_build.plotly <- function(p, registerFrames = TRUE) {
     }
     
     # if appropriate, tack on a group index
-    grps <- if (has_group(trace)) dplyr::group_vars(dat)
+    grps <- if (has_group(trace)) tryNULL(dplyr::group_vars(dat))
     if (length(grps) && any(lengths(trace) == NROW(dat))) {
       trace[[".plotlyGroupIndex"]] <- interaction(dat[, grps, drop = F])
     }

Original file line number	Diff line number	Diff line change
`@@ -144,7 +144,7 @@ plotly_build.plotly <- function(p, registerFrames = TRUE) {`
`144`	`144`	`}`
`145`	`145`
`146`	`146`	`# if appropriate, tack on a group index`
`147`		`- grps <- if (has_group(trace)) dplyr::group_vars(dat)`
	`147`	`+ grps <- if (has_group(trace)) tryNULL(dplyr::group_vars(dat))`
`148`	`148`	`if (length(grps) && any(lengths(trace) == NROW(dat))) {`
`149`	`149`	`trace[[".plotlyGroupIndex"]] <- interaction(dat[, grps, drop = F])`
`150`	`150`	`}`