set.seed(1)
# Reading example
test <- snp_attachExtdata()
# I can add whatever I want to an S3 class
test$map$`p-values` <- runif(nrow(test$map))
str(test$map)
# Reading again
rds <- test$genotypes$rds
test2 <- snp_attach(rds)
str(test2$map) # new slot wasn't saved
# Save it
snp_save(test)
# Reading again
test3 <- snp_attach(rds)
str(test3$map) # it is saved now
# The complicated code of this function
snp_save
Run the code above in your browser using DataLab