Show error message as GHA annotation

Dockerfile

@@ -5,6 +5,6 @@ COPY entrypoint.sh /entrypoint.sh
 
 RUN installr -d -t "openssl-dev libgit2-dev" -a "openssl libgit2 git" rlang local::/pkg
 
-RUN echo 'options(error=rlang::entrace)' >> "$(R RHOME)/etc/Rprofile.site"
+RUN echo 'rlang::global_entrace()' >> "$(R RHOME)/etc/Rprofile.site"
 
 ENTRYPOINT ["sh","/entrypoint.sh"]

R/monorepos.R

@@ -113,7 +113,7 @@ sync_from_registry <- function(monorepo_url = Sys.getenv('MONOREPO_URL')){
   }
   check_new_release_tags()
   skiplist <- submodules_up_to_date(skip_broken = FALSE)
-  print_message("Submodules up-to-date:\n %s", paste(skiplist, collapse = '\n '))
+  print_message("Submodules up-to-date:\n %d", length(skiplist))
   dirty <- Filter(function(x){is.na(match(x$package, skiplist))}, registry[!registry_dups])
   results1 <- lapply(dirty, try_update_package, update_pkg_remotes = TRUE)
 
@@ -150,7 +150,9 @@ sync_from_registry <- function(monorepo_url = Sys.getenv('MONOREPO_URL')){
 
   if(length(failures) > 0){
     pkgs <- vapply(failures, function(x){
-      message(sprintf("\nERROR updating %s from %s (%s)\n", x$package, x$url, attr(x, 'error')))
+      errmsg <- sprintf("\nERROR updating %s from %s (%s)", x$package, x$url, attr(x, 'error'))
+      message(errmsg)
+      cat(sprintf("::error file=.registry::annotation %s\n", errmsg))
       x$package
     }, character(1))
     stop("Failed to update packages: ", paste(pkgs, collapse = ', '))