Update auth.R

Debugging "Error in strsplit(ans, "\\\n") : non-character argument"