feat(codespace): adapt nasa example to inc. rstudio + welcome message

Author: amyheather

.devcontainer.json

@@ -0,0 +1,48 @@
+/*Source: Adapted from https://github.com/boettiger-lab/nasa-topst-env-justice (MIT)*/
+
+{
+  "name": "RStudio with Quarto",
+  "image": "ghcr.io/rocker-org/devcontainer/tidyverse:4.4",
+  "waitFor": "onCreateCommand",
+
+  "features": {
+    "ghcr.io/rocker-org/devcontainer-features/quarto-cli:1": {}
+  },
+
+  "customizations": {
+    "codespaces": {
+      "openFiles": ["README.md"]
+    },
+    "vscode": {
+      "settings": {
+        "r.rterm.linux": "/usr/local/bin/radian",
+        "r.bracketedPaste": true,
+        "r.plot.useHttpgd": true,
+        "[r]": {
+          "editor.wordSeparators": "`~!@#%$^&*()-=+[{]}\\\\|;:'\\\",<>/?"
+        }
+      },
+      "extensions": [
+        "REditorSupport.r",
+        "rdebugger.r-debugger",
+        "quarto.quarto",
+        "ms-toolsai.jupyter",
+        "ms-python.python"
+      ]
+    }
+  },
+
+  "forwardPorts": [8787],
+  "portsAttributes": {
+    "8787": {
+      "label": "RStudio",
+      "requireLocalPort": true,
+      "onAutoForward": "openBrowser"
+    }
+  },
+
+  "onCreateCommand": "bash .devcontainer/setup.sh",
+  "postAttachCommand": "bash .devcontainer/welcome.sh",
+
+  "remoteUser": "rstudio"
+}

.devcontainer/.devcontainer.json

@@ -0,0 +1,20 @@
+# Source: Adapted from https://github.com/boettiger-lab/nasa-topst-env-justice (MIT)
+
+#!/usr/bin/env bash
+set -euo pipefail
+
+# Ensure RStudio runs without password inside Codespace
+if [ -f /etc/rstudio/disable_auth_rserver.conf ]; then
+  sudo cp /etc/rstudio/disable_auth_rserver.conf /etc/rstudio/rserver.conf
+fi
+
+# Make sure USER is rstudio so RStudio knows who to log in
+sudo bash -c 'echo "USER=rstudio" >> /etc/environment'
+
+# Start RStudio Server in the background if not running
+if ! pgrep -x "rserver" > /dev/null 2>&1; then
+  sudo rstudio-server start
+fi
+
+# Minimal R packages you might want – optional
+Rscript -e 'install.packages(c("quarto"), repos = "https://cloud.r-project.org")' || true

.devcontainer/setup.sh

@@ -0,0 +1,34 @@
+# Source: Adapted from https://github.com/boettiger-lab/nasa-topst-env-justice (MIT)
+
+#!/usr/bin/env bash
+set -euo pipefail
+
+# Ensure RStudio is running (idempotent)
+if ! pgrep -x "rserver" > /dev/null 2>&1; then
+  sudo rstudio-server start
+fi
+
+cat <<'EOF'
+========================================
+ Welcome to this R + Quarto Codespace
+========================================
+
+RStudio Server is available at:
+
+  http://127.0.0.1:8787
+
+In GitHub Codespaces:
+
+- Open the "Ports" panel.
+- Find the "RStudio (8787)" port.
+- If it is not already open, choose "Open in browser".
+
+Once RStudio is open, you can:
+- Open a .qmd file
+- Use the "Render" button or run:
+
+    quarto::quarto_preview()
+
+to preview your document.
+========================================
+EOF