Expose the R version on webR an in the Wasm environment (#577)

* Expose the R version on webR an in environment

* Update NEWS.md

Author: georgestagg

NEWS.md

@@ -8,6 +8,8 @@
 
 * Proxy Web Worker communication through the main thread when using the `SharedArrayBuffer` communication channel (#576).
 
+* The R version is now exposed at `webR.versionR` and as the `R_VERSION` environment variable (#577).
+
 # webR 0.5.5
 
 ## New features

src/Makefile

@@ -18,6 +18,7 @@ TS_SOURCES = $(shell find $(ROOT) \
 BASE_URL ?= "./"
 PKG_BASE_URL ?= "https://repo.r-wasm.org"
 WEBR_VERSION ?= $(shell node -p "require('./package.json').version")
+R_VERSION = $(shell cat ../R/R-VERSION)
 
 HTML_DIST = $(addprefix $(DIST)/,$(HTML_TEMPLATES))
 $(DIST)/webr.mjs: $(TS_SOURCES) $(HTML_DIST) \
@@ -30,12 +31,14 @@ $(DIST)/webr.mjs: $(TS_SOURCES) $(HTML_DIST) \
 $(DIST)/%.html: templates/%.html
 	sed -e "s|@@BASE_URL@@|$(BASE_URL)|" \
 	  -e "s|@@PKG_BASE_URL@@|$(PKG_BASE_URL)|" \
-	  -e "s|@@WEBR_VERSION@@|$(WEBR_VERSION)|" $< > $@
+	  -e "s|@@WEBR_VERSION@@|$(WEBR_VERSION)|" \
+	  -e "s|@@R_VERSION@@|$(R_VERSION)|" $< > $@
 
 webR/config.ts: webR/config.ts.in
 	sed -e "s|@@BASE_URL@@|$(BASE_URL)|" \
 	  -e "s|@@PKG_BASE_URL@@|$(PKG_BASE_URL)|" \
-	  -e "s|@@WEBR_VERSION@@|$(WEBR_VERSION)|" webR/config.ts.in > webR/config.ts
+	  -e "s|@@WEBR_VERSION@@|$(WEBR_VERSION)|" \
+	  -e "s|@@R_VERSION@@|$(R_VERSION)|" webR/config.ts.in > webR/config.ts
 
 .PHONY: lint
 lint: $(DIST)

src/webR/config.ts.in

@@ -3,3 +3,4 @@ import { IN_NODE } from './compat';
 export const BASE_URL = IN_NODE ? __dirname + '/' : '@@BASE_URL@@';
 export const PKG_BASE_URL = '@@PKG_BASE_URL@@';
 export const WEBR_VERSION = '@@WEBR_VERSION@@';
+export const R_VERSION = '@@R_VERSION@@';

src/webR/webr-main.ts

@@ -6,7 +6,7 @@
 import { ChannelMain } from './chan/channel';
 import { newChannelMain, ChannelType } from './chan/channel-common';
 import { CloseWebSocketMessage, Message, PostMessageWorkerMessage, ProxyWebSocketMessage, ProxyWorkerMessage, SendWebSocketMessage, TerminateWorkerMessage } from './chan/message';
-import { BASE_URL, PKG_BASE_URL, WEBR_VERSION } from './config';
+import { BASE_URL, PKG_BASE_URL, WEBR_VERSION, R_VERSION } from './config';
 import { EmPtr } from './emscripten';
 import { WebRPayloadPtr } from './payload';
 import { newRProxy, newRClassProxy } from './proxy';
@@ -209,6 +209,7 @@ const defaultEnv = {
   ALL_PROXY: 'socks5h://localhost:8580',
   WEBR: '1',
   WEBR_VERSION: WEBR_VERSION,
+  R_VERSION: R_VERSION,
 };
 
 const defaultOptions = {
@@ -237,6 +238,7 @@ export class WebR {
   #initialised: Promise<unknown>;
   globalShelter!: Shelter;
   version: string = WEBR_VERSION;
+  versionR: string = R_VERSION;
 
   RObject!: ReturnType<typeof newRClassProxy<typeof RWorker.RObject, RObject>>;
   RLogical!: ReturnType<typeof newRClassProxy<typeof RWorker.RLogical, RLogical>>;