bug fix for arrange_safe()

cpsievert · cpsievert · commit a089da4ce3c5 · 2016-09-20T14:58:39.000-05:00
diff --git a/R/utils.R b/R/utils.R
@@ -70,7 +70,7 @@ as_df <- function(x) {
 # arrange data if the vars exist, don't throw error if they don't
 arrange_safe <- function(data, vars) {
   vars <- vars[vars %in% names(data)]
-  if (length(vars)) dplyr::arrange_(data, vars) else data
+  if (length(vars)) dplyr::arrange_(data, .dots = vars) else data
 }
 
 # make sure plot attributes adhere to the plotly.js schema

Original file line number	Diff line number	Diff line change
`@@ -70,7 +70,7 @@ as_df <- function(x) {`
`70`	`70`	`# arrange data if the vars exist, don't throw error if they don't`
`71`	`71`	`arrange_safe <- function(data, vars) {`
`72`	`72`	`vars <- vars[vars %in% names(data)]`
`73`		`- if (length(vars)) dplyr::arrange_(data, vars) else data`
	`73`	`+ if (length(vars)) dplyr::arrange_(data, .dots = vars) else data`
`74`	`74`	`}`
`75`	`75`
`76`	`76`	`# make sure plot attributes adhere to the plotly.js schema`