bm <- function(df) {
idx <- c(rep(TRUE, 5), rep(FALSE, 5))
bench::mark(
df[[1]], df[[1]] <- 1,
df[["a"]], df[["a"]] <- 1,
df[["aa"]], df[["aa"]] <- 1,
df[["aaa"]], df[["aaa"]] <- 1,
df[["b"]],
df$a, df$a <- 1,
df$aa, df$aa <- 1,
df$aaa, df$aaa <- 1,
df["a"], df["a"] <- 1,
df["aa"], df["aa"] <- 1,
df[c("aa", "aaa")], df[c("aa", "aaa")] <- 1,
df[1], df[1] <- 1,
df[2:3], df[2:3] <- 1,
df[TRUE], df[TRUE] <- 1,
df[c(TRUE, FALSE, TRUE)], df[c(TRUE, FALSE, TRUE)] <- 1,
df[, "a"], df[, "a"] <- 1,
df[, "aa"], df[, "aa"] <- 1,
df[, c("aa", "aaa")], df[, c("aa", "aaa")] <- 1,
df[, 1], df[, 1] <- 1,
df[, 2:3], df[, 2:3] <- 1,
df[, TRUE], df[, TRUE] <- 1,
df[, c(TRUE, FALSE, TRUE)], df[, c(TRUE, FALSE, TRUE)] <- 1,
df[1, ], df[1, ] <- 1,
df[3:7, ], df[3:7, ] <- 1,
df[TRUE, ], df[TRUE, ] <- 1,
df[idx, ], df[idx, ] <- 1,
df[1, "a"], df[1, "a"] <- 1,
df[1, "aa"], df[1, "aa"] <- 1,
df[1, c("aa", "aaa")], df[1, c("aa", "aaa")] <- 1,
df[1, 1], df[1, 1] <- 1,
df[1, 2:3], df[1, 2:3] <- 1,
df[1, TRUE], df[1, TRUE] <- 1,
df[1, c(TRUE, FALSE, TRUE)], df[1, c(TRUE, FALSE, TRUE)] <- 1,
df[3:7, "a"], df[3:7, "a"] <- 1,
df[3:7, "aa"], df[3:7, "aa"] <- 1,
df[3:7, c("aa", "aaa")], df[3:7, c("aa", "aaa")] <- 1,
df[3:7, 1], df[3:7, 1] <- 1,
df[3:7, 2:3], df[3:7, 2:3] <- 1,
df[3:7, TRUE], df[3:7, TRUE] <- 1,
df[3:7, c(TRUE, FALSE, TRUE)], df[3:7, c(TRUE, FALSE, TRUE)] <- 1,
df[TRUE, "a"], df[TRUE, "a"] <- 1,
df[TRUE, "aa"], df[TRUE, "aa"] <- 1,
df[TRUE, c("aa", "aaa")], df[TRUE, c("aa", "aaa")] <- 1,
df[TRUE, 1], df[TRUE, 1] <- 1,
df[TRUE, 2:3], df[TRUE, 2:3] <- 1,
df[TRUE, TRUE], df[TRUE, TRUE] <- 1,
df[TRUE, c(TRUE, FALSE, TRUE)], df[TRUE, c(TRUE, FALSE, TRUE)] <- 1,
df[idx, "a"], df[idx, "a"] <- 1,
df[idx, "aa"], df[idx, "aa"] <- 1,
df[idx, c("aa", "aaa")], df[idx, c("aa", "aaa")] <- 1,
df[idx, 1], df[idx, 1] <- 1,
df[idx, 2:3], df[idx, 2:3] <- 1,
df[idx, TRUE], df[idx, TRUE] <- 1,
df[idx, c(TRUE, FALSE, TRUE)], df[idx, c(TRUE, FALSE, TRUE)] <- 1,
check = FALSE,
iterations = 2000
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.