Don't set options if webR or Emscripten not found

r-wasm · Oct 24, 2023 · 01ef41d · 01ef41d
1 parent 99ac59d
commit 01ef41d
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -29,3 +29,5 @@ Suggests:
     knitr,
     rmarkdown
 VignetteBuilder: knitr
+URL: https://r-wasm.github.io/webr-repo/
+Config/Needs/website: tidyverse/tidytemplate
diff --git a/R/zzz.R b/R/zzz.R
@@ -43,10 +43,12 @@ find_emscripten <- function() {
 .onLoad <- function(libname, pkgname) {
   webr_root <- find_webr()
   emscripten_root <- find_emscripten()
-  webr_version <- readLines(fs::path(webr_root, "R", "R-VERSION"))
-  options(rwasm.webr_root = webr_root)
-  options(rwasm.webr_version = webr_version)
-  options(rwasm.emscripten_root = emscripten_root)
+  if (!is.null(webr_root) && !is.null(emscripten_root)) {
+    webr_version <- readLines(fs::path(webr_root, "R", "R-VERSION"))
+    options(rwasm.webr_root = webr_root)
+    options(rwasm.webr_version = webr_version)
+    options(rwasm.emscripten_root = emscripten_root)
+  }
 }
 
 .onAttach <- function(libname, pkgname) {

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -1,4 +1,4 @@
-url: ~
+url: https://r-wasm.github.io/webr-repo/
 template:
   bootstrap: 5