Merge pull request #24 from conbench/sam/add-startup-msg

add information message when loading conbenchcoms

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/conbench_info.R

@@ -0,0 +1,16 @@
+#' Get a list of conbench info
+#'
+#' @return the response
+#' @export
+
+conbench_info <- function() {
+  req <- req_url_path_append(conbench_request(), "ping")
+
+  resp <- conbench_perform(req)
+
+  dat <- resp_body_json(resp, simplifyVector = TRUE, flatten = TRUE)
+
+  dat[["date"]]  <- NULL
+
+  dat
+}

R/zzz.R

@@ -0,0 +1,19 @@
+.onAttach <- function(libname, pkgname) {
+  if (interactive()) {
+    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")
+      }
+    )
+  }
+}