Test R singleton