New function open_Rproj()