Revert "Extract variable before return"

krlmlr · krlmlr · commit 84bd9c090685 · 2021-07-31T07:22:56.000+02:00
This reverts commit 81ba8de.
diff --git a/R/subsetting.R b/R/subsetting.R
@@ -180,8 +180,7 @@ NULL
   value <- list(value)
   names(value) <- names(j)
 
-  out <- tbl_subassign(x, i, j, value, i_arg = i_arg, j_arg = j_arg, value_arg = value_arg)
-  out
+  tbl_subassign(x, i, j, value, i_arg = i_arg, j_arg = j_arg, value_arg = value_arg)
 }
 
 
@@ -290,8 +289,7 @@ NULL
     }
   }
 
-  out <- tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
-  out
+  tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
 }
 
 vectbl_as_row_index <- function(i, x, i_arg, assign = FALSE) {

Original file line number	Diff line number	Diff line change
`@@ -180,8 +180,7 @@ NULL`
`180`	`180`	`value <- list(value)`
`181`	`181`	`names(value) <- names(j)`
`182`	`182`
`183`		`- out <- tbl_subassign(x, i, j, value, i_arg = i_arg, j_arg = j_arg, value_arg = value_arg)`
`184`		`- out`
	`183`	`+ tbl_subassign(x, i, j, value, i_arg = i_arg, j_arg = j_arg, value_arg = value_arg)`
`185`	`184`	`}`
`186`	`185`
`187`	`186`
`@@ -290,8 +289,7 @@ NULL`
`290`	`289`	`}`
`291`	`290`	`}`
`292`	`291`
`293`		`- out <- tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))`
`294`		`- out`
	`292`	`+ tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))`
`295`	`293`	`}`
`296`	`294`
`297`	`295`	`vectbl_as_row_index <- function(i, x, i_arg, assign = FALSE) {`