rproject with devise