fix msg

Author: boshek

NAMESPACE

@@ -4,6 +4,7 @@ export(benchmark_results)
 export(benchmarks)
 export(compare_results)
 export(compare_runs)
+export(conbench_info)
 export(conbench_perform)
 export(conbench_request)
 export(hardware)

R/zzz.R

@@ -1,16 +1,19 @@
 .onAttach <- function(libname, pkgname) {
   if (interactive()) {
-    load_msg <- tryCatch({
-      msg <- conbench_info()
-      cat(
-        paste0(
-            "Conbench server information\n", 
-            paste0(" - ", names(msg),": ", msg, collapse = "\n")
-            ), 
-            "\n")
-    }, error = function(e) {
-      "No available conbench info"
-    })
-    return(packageStartupMessage(load_msg))
+    load_msg <- tryCatch(
+      {
+        msg <- conbench_info()
+        packageStartupMessage(
+            paste0(
+              "Conbench server information\n",
+              paste0(" - ", names(msg), ": ", msg, collapse = "\n")
+            ),
+            "\n"
+          )
+      },
+      error = function(e) {
+        packageStartupMessage("No available conbench info")
+      }
+    )
   }
 }