dat <- as_prt(mtcars)
identical(dat$mpg, dat[["mpg"]])
dat$mp
mtcars$mp
identical(dim(dat["mpg"]), dim(mtcars["mpg"]))
identical(dim(dat[, "mpg"]), dim(mtcars[, "mpg"]))
identical(dim(dat[1L, ]), dim(mtcars[1L, ]))
Run the code above in your browser using DataLab