suppdata:::.grep.text does not find link in FigShare html code

[AlbanSagouis]

Hi,

While running suppdata::suppdata(x = "10.6084/m9.figshare.19697279.v1", si = 1), I receive an error:

Error in download.file(url, destination, quiet = TRUE) : 
  cannot open URL ''
In addition: Warning message:
In download.file(url, destination, quiet = TRUE) :
  URL '': status was 'URL using bad/illegal format or missing URL'

Going through suppdata functions, it seems that suppdata:::.grep.text gets html from httr::GET but then no match is found: links <- gregexpr(regexp, text = html) returns no match.

If i request SI 2 (which does not exist):

Error in .grep.text(html, regexp, which) : 
  SI number '2' greater than number of detected SIs (1)

Using

> packageVersion("suppdata")
[1] ‘1.1.8’

On R version 4.2.1 (2022-06-23 ucrt), Windows 10.