Extract variable before return

krlmlr · krlmlr · commit 81ba8de4d4b2 · 2021-07-31T06:57:16.000+02:00
diff --git a/R/subsetting.R b/R/subsetting.R
@@ -179,7 +179,8 @@ NULL
   value <- list(value)
   names(value) <- names(j)
 
-  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)
+  out
 }
 
 
@@ -288,7 +289,8 @@ NULL
     }
   }
 
-  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))
+  out
 }
 
 vectbl_as_row_index <- function(i, x, i_arg, assign = FALSE) {

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