R Function Multiple Inputs Block