getDepositionByDOI() errors when Zenodo returns a 404

[ThierryO]

I'm getting Error in result$doi : $ operator is invalid for atomic vectors

zenodo <- ZenodoManager$new(token = key_get("zenodo"))
zenodo$getDepositionByDOI("10.5281/zenodo.5792949")

The line below fails because result <- list(message = "The requested URL was not found on the server. If you entered the URL manually please check your spelling and try again.", status = 404L)

zen4R/R/ZenodoManager.R

Line 536 in 7320f3c

if(length(result)>0){

[eblondel]

thanks @ThierryO will look at it asap, first to see if I can reproduce it. Is it something that you experiment permanently? I'm asking because it looks like a temporary error.

[ThierryO]

This code used to work back in January. I'm trying to upload a new version of an existing deposit.

[eblondel]

Yes, actually, I had followed-up on a server-side change in Zenodo API (see #72), but now I realize they reverted it back... I'm going to applpy a fix for that

[eblondel]

@ThierryO this should be fixed, can you test it again?