Adding some R provider code