Silence some outputs

Author: jeroen

R/blackbird.R

@@ -22,7 +22,10 @@ get_blackbird_count <- function(package){
 
 make_session_handle <- function(){
   agent <- 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/127.0.0.0 Safari/537.36'
-  curl::new_handle(useragent = agent, cookie = sprintf("user_session=%s;", Sys.getenv("DUMMY_SESSION")))
+  session <- Sys.getenv("DUMMY_SESSION")
+  if(!nchar(session))
+    stop("No dummy session, skipping script count")
+  curl::new_handle(useragent = agent, cookie = sprintf("user_session=%s;", session))
 }
 
 #out <- get_blackbird_count('dplyr')

R/buildtools.R

@@ -603,9 +603,12 @@ universe_info <- function(){
 
 current_info <- function(package){
   tryCatch({
-    url <- paste0(Sys.getenv('MY_UNIVERSE', 'https://cran.r-universe.dev'), '/', package, '/json')
-    message("Looking up current package info: ", url)
-    jsonlite::fromJSON(url)
+    universe <- Sys.getenv('MY_UNIVERSE')
+    if(nchar(universe)){
+      url <- paste0(universe, '/', package, '/json')
+      message("Looking up current package info: ", url)
+      jsonlite::fromJSON(url)
+    }
   }, error = message)
 }