I've been having a hell of a time getting a simple test to work. I am working on a mobile app in r