Remove vec_slice<-()

Author: krlmlr

NAMESPACE

@@ -85,7 +85,6 @@ importFrom(pillar,type_sum)
 importFrom(pkgconfig,set_config)
 importFrom(utils,head)
 importFrom(utils,tail)
-importFrom(vctrs,"vec_slice<-")
 importFrom(vctrs,num_as_location)
 importFrom(vctrs,unspecified)
 importFrom(vctrs,vec_as_location)

R/subsetting-matrix.R

@@ -28,9 +28,7 @@ tbl_subassign_matrix <- function(x, j, value, j_arg, value_arg) {
 
   withCallingHandlers(
     for (j in col_idx) {
-      xj <- x[[j]]
-      vec_slice(xj, cells[[j]]) <- value
-      x[[j]] <- xj
+      x[[j]] <- vectbl_assign_matrix(x[[j]], cells[[j]], value)
     },
 
     vctrs_error_incompatible_type = function(cnd) {
@@ -63,6 +61,15 @@ cells_to_col_idx <- function(cells) {
   col_idx
 }
 
+vectbl_assign_matrix <- function(x, i, value) {
+  d <- dim(x)
+  dn <- dimnames(x)
+  x <- vectbl_assign(x, i, value)
+  dim(x) <- d
+  dimnames(x) <- dn
+  x
+}
+
 # Errors ------------------------------------------------------------------
 
 error_subset_matrix_must_be_logical <- function(j_arg) {