use github-latest release as "latest" (#114)

Closes #113.

piggyback's "latest" adjusted to match github's definition of latest

NEWS.md

@@ -6,6 +6,7 @@ provides the code to create the release in the error body.
 * `pb_download()` now tries to uses browser download URLs (i.e. `pb_download_url()`) 
 before trying API download URLs. This should reduce/eliminate effect of API rate
 limits for pb_download. [#109]
+* `"latest"` release now aligns with GitHub's "latest" release definition [#113]
 
 # piggyback 0.1.5
 

R/pb_info.R

@@ -48,12 +48,21 @@ pb_releases <- function(repo = guess_repo(),
     return(invisible(data.frame()))
   }
 
+  latest_release <- gh::gh(
+    "/repos/:owner/:repo/releases/latest",
+    owner = r[[1]],
+    repo = r[[2]],
+    .token = .token
+  ) |>
+    getElement("tag_name")
+
   out <- data.frame(
     release_name = .extract_chr(releases, "name"),
     release_id = .extract_int(releases, "id"),
     release_body = .extract_chr(releases, "body"),
     tag_name = .extract_chr(releases, "tag_name"),
     draft = .extract_lgl(releases, "draft"),
+    latest = .extract_chr(releases, "tag_name") %in% latest_release,
     created_at = .extract_chr(releases, "created_at"),
     published_at = .extract_chr(releases, "published_at"),
     html_url = .extract_chr(releases, "html_url"),
@@ -140,8 +149,11 @@ pb_info <- function(repo = guess_repo(),
       ))
   }
 
-  # if tag is latest, set tag to first tag present in releases
-  if(identical(tag, "latest") && !"latest" %in% releases$tag_name) tag <- releases$tag_name[[1]]
+  # if tag is "latest" (and no tag is literally named "latest"), set tag to
+  # GitHub's idea of latest release tag
+  if(identical(tag, "latest") && !"latest" %in% releases$tag_name) {
+    tag <- releases$tag_name[releases$latest]
+  }
 
   # if tag is present, filter the releases to search to just the tags requested
   if(!is.null(tag)) releases <- releases[releases$tag_name %in% tag,]

R/pb_upload.R

@@ -47,10 +47,10 @@ pb_upload <- function(file,
   releases <- pb_releases(repo = repo,.token = .token)
 
   if(tag == "latest" && length(releases$tag_name) > 0 && !"latest" %in% releases$tag_name) {
+    tag <- releases$tag_name[releases$latest]
     if(getOption("piggyback.verbose", default = interactive())){
-      cli::cli_alert_info("Uploading to latest release: {.val {releases$tag_name[[1]]}}.")
+      cli::cli_alert_info("Uploading to latest release: {.val {tag}}.")
     }
-    tag <- releases$tag_name[[1]]
   }
 
   if(!tag %in% releases$tag_name) {
@@ -83,8 +83,8 @@ pb_upload <- function(file,
 }
 
 pb_upload_file <- function(file,
-                           repo = guess_repo(),
-                           tag = "latest",
+                           repo,
+                           tag,
                            name = NULL,
                            overwrite = "use_timestamps",
                            use_timestamps = NULL,