Support reading sheets from a shortlink

[mine-cetinkaya-rundel]

Currently reading from a short link (e.g., this sheet: https://rstd.io/r4ds-students) gives an error.

library(googlesheets4)
gs4_deauth()

students <- read_sheet("https://rstd.io/r4ds-students")
#> Error in `gargle_abort_request_failed()`:
#> ! Client error: (404) NOT_FOUND
#> • A specified resource is not found, or the request is rejected by undisclosed
#>   reasons, such as whitelisting.
#> • Requested entity was not found.

^{Created on 2022-06-09 by the reprex package (v2.0.1)}

It would be nice to support reading from shortlinks, particularly for teaching & documentation scenarios.