j is always named

krlmlr · krlmlr · commit 8a77efd937c5 · 2021-07-31T11:27:45.000+02:00
diff --git a/R/subsetting.R b/R/subsetting.R
@@ -592,10 +592,6 @@ is_tight_sequence_at_end <- function(i_new, n) {
 }
 
 tbl_subassign_col <- function(x, j, value) {
-  if (is.null(names(j))) {
-    names(j) <- names(value)
-  }
-
   is_data <- !vapply(value, is.null, NA)
   nrow <- fast_nrow(x)
 

Original file line number	Diff line number	Diff line change
`@@ -592,10 +592,6 @@ is_tight_sequence_at_end <- function(i_new, n) {`
`592`	`592`	`}`
`593`	`593`
`594`	`594`	`tbl_subassign_col <- function(x, j, value) {`
`595`		`- if (is.null(names(j))) {`
`596`		`- names(j) <- names(value)`
`597`		`- }`
`598`		`-`
`599`	`595`	`is_data <- !vapply(value, is.null, NA)`
`600`	`596`	`nrow <- fast_nrow(x)`
`601`	`597`