RController condition fixed