test pretty r