# NOT RUN {
df <- data.frame(a = 1:3, bc = 4:6)
tbl <- tibble(a = 1:3, bc = 4:6)
# Subsetting single columns:
df[, "a"]
tbl[, "a"]
tbl[, "a", drop = TRUE]
as.data.frame(tbl)[, "a"]
# Subsetting single rows with the drop argument:
df[1, , drop = TRUE]
tbl[1, , drop = TRUE]
as.list(tbl[1, ])
# }
# NOT RUN {
# Accessing non-existent columns:
df$b
tbl$b
df[["b", exact = FALSE]]
tbl[["b", exact = FALSE]]
df$bd <- c("n", "e", "w")
tbl$bd <- c("n", "e", "w")
df$b
tbl$b
# }
# NOT RUN {
df$b <- 7:9
tbl$b <- 7:9
df$b
tbl$b
# Identical behavior:
tbl[1, ]
tbl[1, c("bc", "a")]
tbl[, c("bc", "a")]
tbl[c("bc", "a")]
tbl["a"]
tbl$a
tbl[["a"]]
# }
Run the code above in your browser using DataLab