unnecessary return

joshhwuu · joshhwuu · commit 12cc309882c0 · 2024-06-01T10:54:43.000-07:00
diff --git a/man/fcase.Rd b/man/fcase.Rd
@@ -63,8 +63,7 @@ fcase(
 # fcase can be used for recursion, unlike fifelse
 gcd_dt = function(x,y) {
   r = x\%\%y
-  # Recursive call must be in the last when-value pair
-  return(fcase(!r, y, r, gcd_dt(x, y)))
+  fcase(!r, y, r, gcd_dt(x, y)) # Recursive call must be in the last when-value pair
 }
 gcd_dt(10L, 1L)
 }

Original file line number	Diff line number	Diff line change
`@@ -63,8 +63,7 @@ fcase(`
`63`	`63`	`# fcase can be used for recursion, unlike fifelse`
`64`	`64`	`gcd_dt = function(x,y) {`
`65`	`65`	`r = x\%\%y`
`66`		`- # Recursive call must be in the last when-value pair`
`67`		`- return(fcase(!r, y, r, gcd_dt(x, y)))`
	`66`	`+ fcase(!r, y, r, gcd_dt(x, y)) # Recursive call must be in the last when-value pair`
`68`	`67`	`}`
`69`	`68`	`gcd_dt(10L, 1L)`
`70`	`69`	`}`