r usr data append