EQ_FORMALS belongs to the op_token set.

lorenzwalthert · lorenzwalthert · commit 7cc64946a1cd · 2018-03-23T13:05:19.000+01:00
diff --git a/R/token-define.R b/R/token-define.R
@@ -63,7 +63,8 @@ op_token <- c(
   logical_token,
   left_assignment_token,
   right_assignment_token,
-  "EQ_SUB", "ELSE", "IN"
+  "EQ_SUB", "ELSE", "IN",
+  "EQ_FORMALS"
 )
 
 
diff --git a/tests/testthat/parse_comments/rplumber-out.R b/tests/testthat/parse_comments/rplumber-out.R
@@ -1,7 +1,7 @@
 # myfile.R
 
 #* @get /mean
-normalMean <- function(samples=10) {
+normalMean <- function(samples = 10) {
   data <- rnorm(samples)
   mean(data)
 }

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`# myfile.R`
`2`	`2`
`3`	`3`	`#* @get /mean`
`4`		`-normalMean <- function(samples=10) {`
	`4`	`+normalMean <- function(samples = 10) {`
`5`	`5`	`data <- rnorm(samples)`
`6`	`6`	`mean(data)`
`7`	`7`	`}`