diff --git a/R/read_dataset.R b/R/read_dataset.R index 79f50c6..3316ceb 100644 --- a/R/read_dataset.R +++ b/R/read_dataset.R @@ -150,7 +150,7 @@ get_release <- function(env, ref, candidate_release) { data_message <- content(response, type = "application/json", encoding = "UTF-8") - if (data_message$releases) { + if (length(data_message$releases) != 0) { if (candidate_release == "latest") { release <- head(data_message$releases, n = 1)[[1]]$release |> as.POSIXct(tz = "UTC", format = "%Y-%m-%dT%H:%M:%SZ")