Retaining attributes of columns of a data frame when subsetting.

Hello,

Sorry, you're right, in the method it's x, X is the test dataframe.
Repost:

`[.myclass` <- function(x, i, j, drop = if (missing(i)) TRUE else 
length(cols) == 1){
 ? SaveAt <- lapply(x, attributes)
 ? x <- NextMethod()
 ? lX <- lapply(names(x),function(nm, x, Sat){
 ??? attributes(x[[nm]]) <- Sat[[nm]]
 ??? x[[nm]]}, x = x, Sat = SaveAt)
 ? names(lX) <- names(x)
 ? x <- as.data.frame(lX)
 ? x
}


The (frequent) error comes from tests where a X was created in the 
globalenv and found by the method.