From 952b90aa64987b941118e6ee2475f57ee288cbf8 Mon Sep 17 00:00:00 2001
From: Henrik Bengtsson <henrik.bengtsson@gmail.com>
Date: Fri, 2 Aug 2024 22:08:30 +0200
Subject: [PATCH] Now sysinfo() report also on Ark (An R Kernel) via flag 'ark'
 (fixes #137)

---
 DESCRIPTION | 2 +-
 NEWS.md     | 2 ++
 R/sysinfo.R | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 348949c..b022582 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: startup
-Version: 0.22.0-9002
+Version: 0.22.0-9003
 Title: Friendly R Startup Configuration
 Depends: R (>= 2.14.0)
 Suggests: commonmark, tools, tcltk
diff --git a/NEWS.md b/NEWS.md
index 2840588..ec2cd47 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## New Features
 
+ * Now `sysinfo()` report also on Ark (An R Kernel) via flag `ark`.
+
  * `startup(debug = TRUE)` does a better job explaining why certain
    Renviron and Rprofile files are skipped.
  
diff --git a/R/sysinfo.R b/R/sysinfo.R
index 3941ee4..18aa8c9 100644
--- a/R/sysinfo.R
+++ b/R/sysinfo.R
@@ -14,6 +14,7 @@ sysinfo <- function() {
   sysinfo$interactive <- interactive()
   
   ## Built-in system flags (logical)
+  sysinfo$ark <- is_ark()
   sysinfo$jupyter <- is_jupyter()
   sysinfo$rapp <- (.Platform$GUI == "AQUA")
   sysinfo$rgui <- (.Platform$GUI == "Rgui")