feat(assets_info): Return assets versions as invisible table

And use `message()` instead of `cat()` to make it easier to suppress the printed output

R/assets.R

@@ -342,7 +342,7 @@ assets_info <- function() {
     installed_versions <- "(None)"
   }
 
-  cat(
+  message(
     collapse(c(
       paste0("shinylive R package version:  ", SHINYLIVE_R_VERSION),
       paste0("shinylive web assets version: ", assets_version()),
@@ -361,7 +361,21 @@ assets_info <- function() {
     sep = ""
   )
 
-  invisible()
+  versions <- vapply(
+    strsplit(installed_versions, "shinylive-", fixed = TRUE),
+    FUN.VALUE = character(1),
+    function(x) x[[2]]
+  )
+
+  data <- data.frame(
+    version = versions,
+    path = installed_versions,
+    is_assets_version = versions == assets_version()
+  )
+
+  class(data) <- c("tbl_df", "tbl", "data.frame")
+
+  invisible(data)
 }