feat: include chromote_info() in sysinfo

Author: gadenbuie

DESCRIPTION

@@ -22,6 +22,7 @@ Imports:
     rappdirs,
     cli
 Suggests:
+    chromote (>= 0.4.0),
     renv,
     httpuv,
     rmarkdown (>= 2.9),

R/sysinfo.R

@@ -15,6 +15,14 @@ write_sysinfo <- function(file = stdout(), libpath = resolve_libpath()) {
   pkg_info <- sessioninfo::package_info("installed", include_base = FALSE)
 
   cat(
+    if (rlang::is_installed("chromote", version = "0.4.0")) {
+      c(
+        format(cli::rule("Chrome Info")),
+        capture.output(print(chromote::chromote_info()))
+      )
+    } else {
+      "{chromote} v0.4.0 or later is not installed."
+    },
     format(cli::rule("Session info")),
     format(platform_info),
     format(cli::rule("Packages")),
@@ -24,7 +32,6 @@ write_sysinfo <- function(file = stdout(), libpath = resolve_libpath()) {
   )
 }
 
-
 gha_image_version <- function() {
   Sys.getenv("ImageVersion", "($ImageVersion not found)")
 }