stylistic change

cpsievert · web-flow · commit a597962715e2 · 2019-02-27T12:18:52.000-06:00
diff --git a/R/shiny.R b/R/shiny.R
@@ -153,10 +153,11 @@ event_data <- function(
     parseJSONVal(session$rootScope()$input[[eventID]])
   }
   
-  priority <- match.arg(priority)
   # events that don't emit any data should _always_ be treated with event priority
-  if (event %in% c("plotly_doubleclick", "plotly_deselect", "plotly_afterplot")) {
-    priority <- "event"
+  priority <- if (event %in% c("plotly_doubleclick", "plotly_deselect", "plotly_afterplot")) {
+    "event"
+  } else {
+    match.arg(priority)
   }
   
   if (priority == "event") {

Original file line number	Diff line number	Diff line change
`@@ -153,10 +153,11 @@ event_data <- function(`
`153`	`153`	`parseJSONVal(session$rootScope()$input[[eventID]])`
`154`	`154`	`}`
`155`	`155`
`156`		`- priority <- match.arg(priority)`
`157`	`156`	`# events that don't emit any data should _always_ be treated with event priority`
`158`		`- if (event %in% c("plotly_doubleclick", "plotly_deselect", "plotly_afterplot")) {`
`159`		`- priority <- "event"`
	`157`	`+ priority <- if (event %in% c("plotly_doubleclick", "plotly_deselect", "plotly_afterplot")) {`
	`158`	`+ "event"`
	`159`	`+ } else {`
	`160`	`+ match.arg(priority)`
`160`	`161`	`}`
`161`	`162`
`162`	`163`	`if (priority == "event") {`