Почему Google Auth не может вернуть токен?

Вы не назначаете их никому ...

as.numeric(df$Year)
as.numeric(df$Session)

Должно быть:

df$Year <- as.numeric(df$Year)
df$Session <- as.numeric(df$Session)