One Shot Codes R Studio Help