example: python, quarto, r (#274)

Co-authored-by: Jordan Jensen <[email protected]>

Author: edavidaja

.github/workflows/extensions.yml

@@ -58,6 +58,7 @@ jobs:
             simple-mcp-server: extensions/simple-mcp-server/**
             simple-shiny-chat-with-mcp: extensions/simple-shiny-chat-with-mcp/**
             chat-with-content: extensions/chat-with-content/**
+            pqr: extensions/pqr/**
 
   # Runs for each extension that has changed from `simple-extension-changes`
   # Lints and packages in preparation for tests and and release.

extensions.json

@@ -17,7 +17,9 @@
     "fastapi",
     "mcp",
     "llm",
-    "chat"
+    "chat",
+    "quarto",
+    "r"
   ],
   "requiredFeatures": [
     "API Publishing",

extensions/pqr/.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

extensions/pqr/README.md

@@ -0,0 +1,3 @@
+# pqr
+
+A Quarto document that executes Python and R code.

extensions/pqr/index.qmd

@@ -0,0 +1,37 @@
+---
+title: pqr
+---
+
+This Quarto document executes Python and R code.
+
+## R code
+
+```{r}
+library(tinyplot)
+library(reticulate) # rstudio/renv#2174
+tinytheme("ridge2")
+
+aq = transform(
+  airquality,
+  Month = factor(month.abb[Month], levels = month.abb[5:9]),
+  Month2 = factor(month.name[Month], levels = month.name[5:9]),
+  Late = ifelse(Day > 15, "Late", "Early")
+)
+  
+tinyplot(Month ~ Temp | Temp,
+  data = aq,
+  type = type_ridge(col = "white")
+)
+```
+
+
+## Python code
+
+```{python}
+from plotnine import * 
+from plotnine.data import anscombe_quartet 
+
+p = (ggplot(anscombe_quartet, aes("x", "y", color="dataset")) + geom_point())
+
+p.show()
+```

extensions/pqr/manifest.json

@@ -0,0 +1,7 @@
+library/
+local/
+cellar/
+lock/
+python/
+sandbox/
+staging/