Add sysinfo()$webr (fix #133)

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: startup
-Version: 0.21.0-9000
+Version: 0.21.0-9002
 Title: Friendly R Startup Configuration
 Depends: R (>= 2.14.0)
 Suggests: commonmark, tools, tcltk
@@ -11,5 +11,5 @@ License: LGPL (>= 2.1)
 LazyLoad: TRUE
 URL: https://henrikbengtsson.github.io/startup/, https://github.com/HenrikBengtsson/startup
 BugReports: https://github.com/HenrikBengtsson/startup/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Roxygen: list(markdown = TRUE)

NEWS.md

@@ -1,3 +1,11 @@
+# Version (development version)
+
+## New Features
+
+ * Now `sysinfo()` return also flag `webr`, which indicates whether R
+   runs via WebR or not.
+
+
 # Version 0.21.0 (2023-12-11)
 
 ## New Features

R/is_ess.R

@@ -1,4 +1,4 @@
-#' Checks whether running R via Emacs Spekas Statistics (ESS) or not
+#' Check if running R via Emacs Speaks Statistics (ESS)
 #'
 #' @return A logical
 is_ess <- function() {

R/is_microsoftr.R

@@ -1,4 +1,4 @@
-#' Checks if running R in Microsoft R Open
+#' Check if running R via Microsoft R Open
 #'
 #' @return A logical
 is_microsoftr <- function() {

R/is_pqr.R

@@ -1,4 +1,4 @@
-#' Checks if running pqR (A Pretty Quick Version of R)
+#' Check if running a Pretty Quick Version of R (pqR)
 #'
 #' @return A logical
 #'

R/is_radian.R

@@ -1,4 +1,4 @@
-#' Checks whether running R via radian (formerly known as rtichoke and rice) or not
+#' Check if running R via radian (formerly known as rtichoke and rice)
 #'
 #' @return A logical
 #'

R/is_rscript.R

@@ -1,4 +1,4 @@
-## Checks if running R via Rscript or not
+## Checks if running R via Rscript
 ##
 ## _WARNING: This function does not work - it always returns FALSE \[1\]._
 ##

R/is_rstudio.R

@@ -6,7 +6,9 @@
 #' 1. Kevin Ushey (RStudio), Check if R is running in RStudio,
 #'    Stackoverflow, 2016-09-23,
 #'    \url{https://stackoverflow.com/questions/12389158/check-if-r-is-running-in-rstudio#comment66636507_35849779}
-#' 2. Jonathan McPherson (RStudio), Programmatically detect RStudio Terminal vs RStudio Console?, RStudio Community - RStudio IDE, 2018-01-10, \url{https://community.rstudio.com/t/programmatically-detect-rstudio-terminal-vs-rstudio-console/4107}
+#' 2. Jonathan McPherson (RStudio), Programmatically detect RStudio Terminal vs RStudio Console?,
+#'    RStudio Community - RStudio IDE, 2018-01-10,
+#'    \url{https://forum.posit.co/t/programmatically-detect-rstudio-terminal-vs-rstudio-console/4107}
 is_rstudio_console <- function() {
   (Sys.getenv("RSTUDIO") == "1") && !nzchar(Sys.getenv("RSTUDIO_TERM"))
 }

R/is_webr.R

@@ -0,0 +1,14 @@
+#' Checks if running R via webR
+#'
+#' @return A logical
+#'
+#' @references
+#' 1. WebR - R in the Browser, <https://docs.r-wasm.org/webr/latest/>
+is_webr <- function() {
+  if (!"webr" %in% loadedNamespaces()) return(FALSE)
+  ## Source: https://github.com/r-wasm/webr/issues/414
+  ns <- getNamespace("webr")
+  if (!exists("eval_js", mode = "function", envir = ns)) return(FALSE)
+  eval_js <- get("eval_js", mode = "function", envir = ns)
+  eval_js("'webr' in Module") == 1L
+}

R/is_wine.R

@@ -1,4 +1,4 @@
-#' Checks whether running R on Windows using Wine or not
+#' Check if running R on Windows using Wine
 #'
 #' @return A logical
 #'

R/sysinfo.R

@@ -26,6 +26,7 @@ sysinfo <- function() {
   ## Deprecated: Renamed rice -> rtichoke in February 2018
   sysinfo$rice <- sysinfo$radian
   sysinfo$pqr <- is_pqr()
+  sysinfo$webr <- is_webr()
   sysinfo$wine <- is_wine()
 
   ## Session-specific variables