Get Input From User In R