R Function Multiple Inputs Using Split In List