ensure just one url returned from get_url()

curso-r · Aug 29, 2020 · 4ecb810 · 4ecb810 · Athospd · Aug 29, 2020
1 parent 915d9ac
commit 4ecb810
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/install.R b/R/install.R
@@ -15,8 +15,8 @@ get_url <- function(platform) {
   if (r$status_code != 200) stop ("Could not access latest builds.")
   json <- httr::content(r, simplifyDataFrame = TRUE)
   da <- json[grepl(re, json$tag_name),]
-  da <- da[order(da$created_at, decreasing = TRUE), ]
-  da$assets[[1]]$browser_download_url
+  da <- da[order(da$created_at, decreasing = TRUE), "assets"][[1]]
+  sort(da$browser_download_url, decreasing = TRUE)[1]
 }
 
 #' Installs LightGBM