subset () удаляет атрибуты векторов; как поддерживать / сохранять их?

Допустим, у меня есть вектор, в котором я установил несколько атрибутов:

vec <- sample(50:100,1000, replace=TRUE)
attr(vec, "someattr") <- "Hello World"

Когда я делю подмножество вектора, атрибуты удаляются. Например:

tmp.vec <- vec[which(vec > 80)]
attributes(tmp.vec) # Now NULL

Есть ли способ, подмножество и сохранение атрибутов без необходимости сохранять их в другом временном объекте?

Бонус: где найти документацию об этом поведении?