How can I read or download an image from a Google Sheet or google sheet cell using R?

This is what I tried:

library(googlesheets)
sheetPath = "urlToFile"
workSheetName = "sheetName"
gs_title("Gapminder") %>%
  gs_download(ws = "workSheetName ", to = "imageToSave.pdf")

I'm currently getting an authorization error.