Update R/subset.R