404 error with dataverse::get_file

[andybega]

E.g.:

library(icews)
f <- dataverse::get_file(file = 3819674, dataset = get_doi()[["historic"]])

Error in dataverse::get_file(file = file_ref, dataset = get_doi()[[repo]],  : 
  Not Found (HTTP 404).

But when I run the contained code manually it works.

file = 3819674
key = Sys.getenv("DATAVERSE_KEY")
server = Sys.getenv("DATAVERSE_SERVER")
u <- paste0(dataverse:::api_url(server), "access/datafile/", file)
r <- httr::GET(u, httr::add_headers(`X-Dataverse-key` = key))
httr::stop_for_status(r)
f <- httr::content(r, as = "raw"))

[andybega]

I think the problem is with the query list that gets tacked in in get_file().

[andybega]

Duplicate issue. This is already covered in 51.