BiomedEngX/CircosHeatmap-aardio
2
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 3 Wiki Activity
CircosHeatmap-aardio/dist/lib/r-library/tibble/doc/invariants.R

611 lines
17 KiB
R
Raw Normal View History

首次上传
2025-01-12 00:52:51 +08:00
## ---- include = FALSE---------------------------------------------------------
# To suppress messages
library(tibble)
library(vctrs)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
error = TRUE
)
tibble:::set_dftbl_hooks()
options(
lifecycle_verbosity = "warning",
lifecycle_disable_warnings = FALSE,
lifecycle_verbose_soft_deprecation = TRUE,
lifecycle_repeat_warnings = TRUE
)
# Set to FALSE for production
eval_details <- (Sys.getenv("IN_GALLEY") != "")
## ----setup--------------------------------------------------------------------
library(tibble)
library(vctrs)
new_df <- function() {
df <- data.frame(n = c(1L, NA, 3L, NA))
df$c <- letters[5:8]
df$li <- list(9, 10:11, 12:14, "text")
df
}
new_tbl <- function() {
as_tibble(new_df())
}
## ----show, dftbl = TRUE, dftbl_always = TRUE----------------------------------
new_df()
new_tbl()
## ----ro-----------------------------------------------------------------------
df <- new_df()
tbl <- new_tbl()
## ----setup2-------------------------------------------------------------------
new_tbl2 <- function() {
tibble(
tb = tbl,
m = diag(4)
)
}
new_df2 <- function() {
df2 <- new_tbl2()
class(df2) <- "data.frame"
class(df2$tb) <- "data.frame"
df2
}
df2 <- new_df2()
tbl2 <- new_tbl2()
## ----show-compare-2, dftbl = TRUE---------------------------------------------
new_tbl()
## ----with-def, include = FALSE------------------------------------------------
with_df <- function(code, verbose = FALSE) {
code <- rlang::enexpr(code)
full_code <- rlang::quo({
df <- new_df()
!!code
df
})
if (verbose) rlang::expr_print(rlang::quo_get_expr(full_code))
rlang::eval_tidy(full_code)
}
with_tbl <- function(code, verbose = FALSE) {
code <- rlang::enexpr(code)
full_code <- rlang::quo({
tbl <- new_tbl()
!!code
tbl
})
if (verbose) rlang::expr_print(rlang::quo_get_expr(full_code))
rlang::eval_tidy(full_code)
}
with_df2 <- function(code) {
code <- rlang::enexpr(code)
full_code <- rlang::quo({
df2 <- new_df2()
!!code
df2
})
rlang::eval_tidy(full_code)
}
with_tbl2 <- function(code) {
code <- rlang::enexpr(code)
full_code <- rlang::quo({
tbl2 <- new_tbl2()
!!code
tbl2
})
rlang::eval_tidy(full_code)
}
## ----with-demo, dftbl = TRUE--------------------------------------------------
with_df(df$n <- rev(df$n), verbose = TRUE)
with_tbl(tbl$n <- rev(tbl$n), verbose = TRUE)
## ----double-bracket-equivalent-to-subset2, dftbl = TRUE-----------------------
tbl[[1]]
.subset2(tbl, 1)
## ----double-bracket-equivalent-to-subset2-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# identical(df[[3]], .subset2(df, 3))
# identical(tbl[[3]], .subset2(tbl, 3))
# identical(df2[["df"]], .subset2(df2, "df"))
# identical(tbl2[["tbl"]], .subset2(tbl2, "tbl"))
## ----double-bracket-retains-size, dftbl = TRUE, include = eval_details, eval = eval_details----
# vec_size(df[[1]])
# vec_size(tbl[[1]])
# vec_size(df[[3]])
# vec_size(tbl[[3]])
# vec_size(df2[[1]])
# vec_size(tbl2[[1]])
# vec_size(df2[[2]])
# vec_size(tbl2[[2]])
## ----double-bracket-requires-scalar-j-index, dftbl = TRUE---------------------
df[[1:2]]
tbl[[1:2]]
df[[c("n", "c")]]
tbl[[c("n", "c")]]
df[[TRUE]]
tbl[[TRUE]]
df[[mean]]
tbl[[mean]]
## ----double-bracket-j-oob-numeric, dftbl = TRUE-------------------------------
df[[NA]]
tbl[[NA]]
df[[NA_character_]]
tbl[[NA_character_]]
df[[NA_integer_]]
tbl[[NA_integer_]]
df[[-1]]
tbl[[-1]]
df[[4]]
tbl[[4]]
df[[1.5]]
tbl[[1.5]]
df[[Inf]]
tbl[[Inf]]
## ----double-bracket-j-oob-character, dftbl = TRUE-----------------------------
tbl[["x"]]
## ----dollar-equivalent-to-subset, dftbl = TRUE--------------------------------
tbl$n
tbl$"n"
tbl[["n"]]
## ----dollar-equivalent-to-subset-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# identical(df$li, df[["li"]])
# identical(tbl$li, tbl[["li"]])
# identical(df2$tb, df2[["tb"]])
# identical(tbl2$tb, tbl2[["tb"]])
# identical(df2$m, df2[["m"]])
# identical(tbl2$m, tbl2[["m"]])
## ----dollar-equivalent-to-subset-pmatch, dftbl = TRUE-------------------------
df$l
tbl$l
df$not_present
tbl$not_present
## ----bracket-j-definition, dftbl = TRUE---------------------------------------
tbl[1:2]
## ----bracket-j-duplication, dftbl = TRUE--------------------------------------
df[c(1, 1)]
tbl[c(1, 1)]
## ----bracket-j-empty, dftbl = TRUE--------------------------------------------
tbl[integer()]
## ----bracket-j-logical-matrix, dftbl = TRUE-----------------------------------
df[is.na(df)]
tbl[is.na(tbl)]
df[!is.na(df)]
tbl[!is.na(tbl)]
## ----bracket-missing-i, dftbl = TRUE------------------------------------------
df[, 1]
tbl[, 1]
tbl[, 1:2]
## ----bracket-missing-i-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# identical(df[, 2:3], df[2:3])
# identical(tbl[, 2:3], tbl[2:3])
# identical(df2[, 1:2], df2[1:2])
# identical(tbl2[, 1:2], tbl2[1:2])
## ----bracket-always-returns-tibble-drop, dftbl = TRUE-------------------------
tbl[, 1, drop = TRUE]
## ----bracket-always-returns-tibble-drop-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# identical(df[, 3, drop = TRUE], df[[3]])
# identical(tbl[, 3, drop = TRUE], tbl[[3]])
# identical(df2[, 1, drop = TRUE], df2[[1]])
# identical(tbl2[, 1, drop = TRUE], tbl2[[1]])
# identical(df2[, 2, drop = TRUE], df2[[2]])
# identical(tbl2[, 2, drop = TRUE], tbl2[[2]])
## ----bracket-i, dftbl = TRUE--------------------------------------------------
tbl[3, ]
## ----bracket-i-wrong-type, dftbl = TRUE---------------------------------------
df[mean, ]
tbl[mean, ]
df[list(1), ]
tbl[list(1), ]
tbl["1", ]
## ----bracket-i-oob, dftbl = TRUE----------------------------------------------
tbl[10, ]
tbl["x", ]
## ----bracket-i-recycle, dftbl = TRUE------------------------------------------
df[c(TRUE, FALSE), ]
tbl[c(TRUE, FALSE), ]
## ----bracket-i-na, dftbl = TRUE-----------------------------------------------
tbl[NA, ]
tbl[NA_integer_, ]
## ----bracket-i-drop, dftbl = TRUE---------------------------------------------
df[1, , drop = TRUE]
tbl[1, , drop = TRUE]
## ----bracket-i-j-equivalent-to-i-subset-then-j, dftbl = TRUE, include = eval_details, eval = eval_details----
# df[1, 1]
# tbl[1, 1]
# df[1, ][1]
# tbl[1, ][1]
# identical(df[1, 2:3], df[2:3][1, ])
# identical(tbl[1, 2:3], tbl[2:3][1, ])
# identical(df[2:3, 1], df[1][2:3, ])
# identical(tbl[2:3, 1], tbl[1][2:3, ])
# identical(df2[2:3, 1:2], df2[1:2][2:3, ])
# identical(tbl2[2:3, 1:2], tbl2[1:2][2:3, ])
## ----bracket-bracket-i-j-equivalent-to-i-subset-then-j------------------------
df[[1, 1]]
df[[1, 3]]
## ----double-bracket-assign-definition, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1]] <- 0)
# with_tbl(tbl[[1]] <- 0)
# with_df(df[[3]] <- 4:1)
# with_tbl(tbl[[3]] <- 4:1)
# with_df2(df2[[1]] <- 0)
# with_tbl2(tbl2[[1]] <- 0)
# with_df2(df2[[2]] <- 4:1)
# with_tbl2(tbl2[[2]] <- 4:1)
## ----double-bracket-assign-requires-scalar-j-index, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1]] <- 0)
# with_tbl(tbl[[1]] <- 0)
# with_df(df[["c"]] <- 0)
# with_tbl(tbl[["c"]] <- 0)
## ----double-bracket-assign-requires-scalar-j-index-error, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[TRUE]] <- 0)
# with_tbl(tbl[[TRUE]] <- 0)
# with_df(df[[1:3]] <- 0)
# with_tbl(tbl[[1:3]] <- 0)
# with_df(df[[c("n", "c")]] <- 0)
# with_tbl(tbl[[c("n", "c")]] <- 0)
# with_df(df[[FALSE]] <- 0)
# with_tbl(tbl[[FALSE]] <- 0)
# with_df(df[[1:2]] <- 0)
# with_tbl(tbl[[1:2]] <- 0)
# with_df(df[[NA_integer_]] <- 0)
# with_tbl(tbl[[NA_integer_]] <- 0)
# with_df(df[[NA]] <- 0)
# with_tbl(tbl[[NA]] <- 0)
# with_df(df[[NA_character_]] <- 0)
# with_tbl(tbl[[NA_character_]] <- 0)
## ----double-bracket-assign-recycle, dftbl = TRUE------------------------------
with_tbl(tbl[["li"]] <- list(0))
with_df2(df2[["tb"]] <- df[1, ])
with_tbl2(tbl2[["tb"]] <- tbl[1, ])
with_df2(df2[["m"]] <- df2[["m"]][1, , drop = FALSE])
with_tbl2(tbl2[["m"]] <- tbl2[["m"]][1, , drop = FALSE])
## ----double-bracket-requires-size, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1]] <- 1)
# with_tbl(tbl[[1]] <- 1)
# with_df(df[[1]] <- 4:1)
# with_tbl(tbl[[1]] <- 4:1)
# with_df(df[[1]] <- 3:1)
# with_tbl(tbl[[1]] <- 3:1)
# with_df(df[[1]] <- 2:1)
# with_tbl(tbl[[1]] <- 2:1)
## ----double-bracket-assign-supports-new, dftbl = TRUE-------------------------
with_tbl(tbl[["x"]] <- 0)
with_df(df[[4]] <- 0)
with_tbl(tbl[[4]] <- 0)
with_df(df[[5]] <- 0)
with_tbl(tbl[[5]] <- 0)
## ----double-bracket-assign-supports-type-change, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1]] <- df[[2]])
# with_tbl(tbl[[1]] <- tbl[[2]])
# with_df(df[[2]] <- df[[3]])
# with_tbl(tbl[[2]] <- tbl[[3]])
# with_df(df[[3]] <- df2[[1]])
# with_tbl(tbl[[3]] <- tbl2[[1]])
# with_df2(df2[[1]] <- df2[[2]])
# with_tbl2(tbl2[[1]] <- tbl2[[2]])
# with_df2(df2[[2]] <- df[[1]])
# with_tbl2(tbl2[[2]] <- tbl[[1]])
## ----double-bracket-assign-supports-null, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1]] <- NULL)
# with_tbl(tbl[[1]] <- NULL)
# with_df2(df2[[2]] <- NULL)
# with_tbl2(tbl2[[2]] <- NULL)
## ----double-bracket-assign-supports-null-unknown, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[["q"]] <- NULL)
# with_tbl(tbl[["q"]] <- NULL)
## ----dollar-equivalent-to-subset-assign, dftbl = TRUE-------------------------
with_tbl(tbl$n <- 0)
with_tbl(tbl[["n"]] <- 0)
## ----dollar-equivalent-to-subset-assign-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df$"n" <- 0)
# with_tbl(tbl$"n" <- 0)
## ----dollar-equivalent-to-subset-assign-pmatch, dftbl = TRUE------------------
with_tbl(tbl$l <- 0)
with_tbl(tbl[["l"]] <- 0)
## ----bracket-assign-def, dftbl = TRUE-----------------------------------------
with_tbl(tbl[1:2] <- list("x", 4:1))
with_tbl(tbl[c("li", "x", "c")] <- list("x", 4:1, NULL))
## ----bracket-assign-recycles, dftbl = TRUE------------------------------------
with_tbl(tbl[1:2] <- list(1))
with_df(df[1:2] <- list(0, 0, 0))
with_tbl(tbl[1:2] <- list(0, 0, 0))
with_df(df[1:3] <- list(0, 0))
with_tbl(tbl[1:3] <- list(0, 0))
## ---- bracket-assign-multiple, dftbl = TRUE-----------------------------------
with_df(df[c(1, 1)] <- list(1, 2))
with_tbl(tbl[c(1, 1)] <- list(1, 2))
## ----bracket-assign-remove, dftbl = TRUE--------------------------------------
with_tbl(tbl[1:2] <- list(NULL, 4:1))
## ----bracket-assign-na, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[NA] <- list("x"))
# with_tbl(tbl[NA] <- list("x"))
# with_df(df[NA_integer_] <- list("x"))
# with_tbl(tbl[NA_integer_] <- list("x"))
# with_df(df[NA_character_] <- list("x"))
# with_tbl(tbl[NA_character_] <- list("x"))
## ----bracket-assign-supports-type-change, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[1] <- df[2])
# with_tbl(tbl[1] <- tbl[2])
# with_df(df[2] <- df[3])
# with_tbl(tbl[2] <- tbl[3])
# with_df(df[3] <- df2[1])
# with_tbl(tbl[3] <- tbl2[1])
# with_df2(df2[1] <- df2[2])
# with_tbl2(tbl2[1] <- tbl2[2])
# with_df2(df2[2] <- df[1])
# with_tbl2(tbl2[2] <- tbl[1])
## ----bracket-assign-names, dftbl = TRUE---------------------------------------
with_tbl(tbl[c("x", "y")] <- tibble("x", x = 4:1))
with_tbl(tbl[3:4] <- list("x", x = 4:1))
with_df(df[4] <- list(4:1))
with_tbl(tbl[4] <- list(4:1))
with_df(df[5] <- list(4:1))
with_tbl(tbl[5] <- list(4:1))
## ----bracket-j-assign-logical-matrix, dftbl = TRUE----------------------------
with_df(df[is.na(df)] <- 4)
with_tbl(tbl[is.na(tbl)] <- 4)
with_df(df[is.na(df)] <- 1:2)
with_tbl(tbl[is.na(tbl)] <- 1:2)
with_df(df[matrix(c(rep(TRUE, 5), rep(FALSE, 7)), ncol = 3)] <- 4)
with_tbl(tbl[matrix(c(rep(TRUE, 5), rep(FALSE, 7)), ncol = 3)] <- 4)
## ----bracket-assign-array, dftbl = TRUE---------------------------------------
with_tbl(tbl[1:2] <- matrix(8:1, ncol = 2))
with_df(df[1:3, 1:2] <- matrix(6:1, ncol = 2))
with_tbl(tbl[1:3, 1:2] <- matrix(6:1, ncol = 2))
with_tbl(tbl[1:2] <- array(4:1, dim = c(4, 1, 1)))
with_tbl(tbl[1:2] <- array(8:1, dim = c(4, 2, 1)))
with_df(df[1:2] <- array(8:1, dim = c(2, 1, 4)))
with_tbl(tbl[1:2] <- array(8:1, dim = c(2, 1, 4)))
with_df(df[1:2] <- array(8:1, dim = c(4, 1, 2)))
with_tbl(tbl[1:2] <- array(8:1, dim = c(4, 1, 2)))
## ----bracket-assign-wraps, dftbl = TRUE---------------------------------------
with_tbl(tbl[1] <- 0)
with_tbl(tbl[1] <- list(0))
## ----bracket-assign-matrix, dftbl = TRUE--------------------------------------
with_tbl(tbl[1] <- list(matrix(1:8, ncol = 2)))
with_tbl(tbl[1:2] <- list(matrix(1:8, ncol = 2)))
## ----bracket-assign-null, dftbl = TRUE----------------------------------------
with_tbl(tbl[1] <- NULL)
with_tbl(tbl[, 2:3] <- NULL)
with_df(df[1, 2:3] <- NULL)
with_tbl(tbl[1, 2:3] <- NULL)
## ----bracket-assign-non-vector, dftbl = TRUE----------------------------------
with_df(df[1] <- mean)
with_tbl(tbl[1] <- mean)
with_df(df[1] <- lm(mpg ~ wt, data = mtcars))
with_tbl(tbl[1] <- lm(mpg ~ wt, data = mtcars))
## ----bracket-i-assign, dftbl = TRUE-------------------------------------------
with_tbl(tbl[2:3, ] <- tbl[1, ])
with_tbl(tbl[c(FALSE, TRUE, TRUE, FALSE), ] <- tbl[1, ])
## ----bracket-i-assign-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[0:2, ] <- df[1, ])
# with_tbl(tbl[0:2, ] <- tbl[1, ])
# with_df(df[0, ] <- df[1, ])
# with_tbl(tbl[0, ] <- tbl[1, ])
# with_df(df[-2, ] <- df[1, ])
# with_tbl(tbl[-2, ] <- tbl[1, ])
# with_df(df[-1:2, ] <- df[1, ])
# with_tbl(tbl[-1:2, ] <- tbl[1, ])
# with_df(df[NA_integer_, ] <- df[1, ])
# with_tbl(tbl[NA_integer_, ] <- tbl[1, ])
# with_df2(df2[NA_integer_, ] <- df2[1, ])
# with_tbl2(tbl2[NA_integer_, ] <- tbl2[1, ])
# with_df(df[TRUE, ] <- df[1, ])
# with_tbl(tbl[TRUE, ] <- tbl[1, ])
# with_df(df[FALSE, ] <- df[1, ])
# with_tbl(tbl[FALSE, ] <- tbl[1, ])
# with_df(df[NA, ] <- df[1, ])
# with_tbl(tbl[NA, ] <- tbl[1, ])
## ----bracket-i-recycle-assign, dftbl = TRUE-----------------------------------
with_tbl(tbl[2:3, ] <- tbl[1, ])
with_tbl(tbl[2:3, ] <- list(tbl$n[1], tbl$c[1:2], tbl$li[1]))
with_df(df[2:4, ] <- df[1:2, ])
with_tbl(tbl[2:4, ] <- tbl[1:2, ])
## ----bracket-i-recycle-assign-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df2(df2[2:4, ] <- df2[1, ])
# with_tbl2(tbl2[2:4, ] <- tbl2[1, ])
# with_df2(df2[2:4, ] <- df2[2:3, ])
# with_tbl2(tbl2[2:4, ] <- tbl2[2:3, ])
## ----bracket-i-oob-num, dftbl = TRUE------------------------------------------
with_tbl(tbl[5, ] <- tbl[1, ])
with_tbl(tbl[5:7, ] <- tbl[1, ])
with_df(df[6, ] <- df[1, ])
with_tbl(tbl[6, ] <- tbl[1, ])
with_df(df[-5, ] <- df[1, ])
with_tbl(tbl[-5, ] <- tbl[1, ])
with_df(df[-(5:7), ] <- df[1, ])
with_tbl(tbl[-(5:7), ] <- tbl[1, ])
with_df(df[-6, ] <- df[1, ])
with_tbl(tbl[-6, ] <- tbl[1, ])
## ----bracket-i-character, dftbl = TRUE----------------------------------------
with_tbl(tbl[as.character(1:3), ] <- tbl[1, ])
## ----bracket-i-character-detail, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[as.character(-(1:3)), ] <- df[1, ])
# with_tbl(tbl[as.character(-(1:3)), ] <- tbl[1, ])
# with_df(df[as.character(3:5), ] <- df[1, ])
# with_tbl(tbl[as.character(3:5), ] <- tbl[1, ])
# with_df(df[as.character(-(3:5)), ] <- df[1, ])
# with_tbl(tbl[as.character(-(3:5)), ] <- tbl[1, ])
# with_df(df[NA_character_, ] <- df[1, ])
# with_tbl(tbl[NA_character_, ] <- tbl[1, ])
## ----bracket-i-data-type, dftbl = TRUE----------------------------------------
with_df(df[2:3, 1] <- df[1:2, 2])
with_tbl(tbl[2:3, 1] <- tbl[1:2, 2])
with_df(df[2:3, 2] <- df[1:2, 3])
with_tbl(tbl[2:3, 2] <- tbl[1:2, 3])
with_df(df[2:3, 3] <- df2[1:2, 1])
with_tbl(tbl[2:3, 3] <- tbl2[1:2, 1])
with_df2(df2[2:3, 1] <- df2[1:2, 2])
with_tbl2(tbl2[2:3, 1] <- tbl2[1:2, 2])
with_tbl2(tbl2[2:3, 2] <- tbl[1:2, 1])
## ----bracket-i-j-na-init, dftbl = TRUE----------------------------------------
with_tbl({tbl$x <- NA; tbl[2:3, "x"] <- 3:2})
with_df({df[2:3, 2:3] <- NA})
with_tbl({tbl[2:3, 2:3] <- NA})
## ----bracket-i-j-typed-na-init, dftbl = TRUE----------------------------------
with_tbl({tbl$x <- NA_integer_; tbl[2:3, "x"] <- 3:2})
## ----subassign-ij-new-column, dftbl = TRUE------------------------------------
with_df(df[2:3, "n"] <- 1)
with_tbl(tbl[2:3, "n"] <- 1)
with_tbl(tbl[2:3, "x"] <- 1)
with_df(df[2:3, "n"] <- NULL)
with_tbl(tbl[2:3, "n"] <- NULL)
## ----append-rows-only-all-columns, dftbl = TRUE-------------------------------
with_tbl(tbl[5, "n"] <- list(0L))
## ----double-bracket-i-j-equivalent-to-row-subset-then-j, dftbl = TRUE, include = eval_details, eval = eval_details----
# with_df(df[[1, 1]] <- 0)
# with_tbl(tbl[[1, 1]] <- 0)
# with_df(df[1, ][[1]] <- 0)
# with_tbl(tbl[1, ][[1]] <- 0)
# with_df(df[[1, 3]] <- list(NULL))
# with_tbl(tbl[[1, 3]] <- list(NULL))
# with_df(df[1, ][[3]] <- list(NULL))
# with_tbl(tbl[1, ][[3]] <- list(NULL))
# with_df2(df2[[1, 1]] <- df[1, ])
# with_tbl2(tbl2[[1, 1]] <- tbl[1, ])
# with_df2(df2[1, ][[1]] <- df[1, ])
# with_tbl2(tbl2[1, ][[1]] <- tbl[1, ])
# with_df2(df2[[1, 2]] <- t(1:4))
# with_tbl2(tbl2[[1, 2]] <- t(1:4))
# with_df2(df2[1, ][[2]] <- t(1:4))
# with_tbl2(tbl2[1, ][[2]] <- t(1:4))
# df[[1:2, 1]]
# tbl[[1:2, 1]]
# with_df(df[[1:2, 1]] <- 0)
# with_tbl(tbl[[1:2, 1]] <- 0)
## ----check, dftbl = TRUE, include = FALSE-------------------------------------
stopifnot(identical(tbl, new_tbl()))
Reference in New Issue Copy Permalink