Add quarto-script-r (#110)

* Add quarto-script-r

* Add exception to .gitignore for manifest.json

* Apparently I lost the manifest due to the .gitignore problem

* Update extensions/quarto-script-r/manifest.json

Co-authored-by: Toph Allen <[email protected]>

---------

Co-authored-by: Jonathan Keane <[email protected]>
Co-authored-by: Toph Allen <[email protected]>

Author: 3 people

.github/workflows/extensions.yml

@@ -44,6 +44,7 @@ jobs:
             plumbertableau-example: extensions/plumbertableau-example/**
             fastapitableau-example: extensions/fastapitableau-example/**
             portfolio-report: extensions/portfolio-report/**
+            quarto-script-r: extensions/quarto-script-r/**
             usage-metrics-dashboard: extensions/usage-metrics-dashboard/**
 
   # Runs for each extension that has changed from `simple-extension-changes`

extensions/quarto-script-r/.gitignore

@@ -0,0 +1,10 @@
+/.quarto/
+*.csv
+*.json
+script.html
+script_files
+/email-preview/
+.output_metadata.json
+
+# Always include manifest.json
+!manifest.json

extensions/quarto-script-r/.rscignore

@@ -0,0 +1,10 @@
+README.md
+thumbnail.jpg
+script.html
+script_files
+.output_metadata.json
+email-preview
+adelie-m.csv
+adelie-m.json
+gentoo-f.csv
+gentoo-f.json

extensions/quarto-script-r/README.md

@@ -0,0 +1,18 @@
+# Run an R Script using Quarto
+
+## About this example
+
+This data transformation script uses Quarto and R. It is an example of how you might automate regular imports and transformations from a data source. JSON and CSV files are exported and made available for download.
+
+The script also generates a custom email, with the generated CSV files as attachments.
+
+
+## Learn more
+
+* [Quarto](https://quarto.org)
+* [Quarto: Rendering Script Files](https://quarto.org/docs/computations/render-scripts.html)
+
+## Requirements
+
+* Quarto version 1.4 or higher
+* R version 4.4 or higher

extensions/quarto-script-r/_quarto.yml

@@ -0,0 +1,2 @@
+project:
+  title: "Penguin data transformations"

extensions/quarto-script-r/manifest.json

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

extensions/quarto-script-r/quarto-script-r.Rproj

@@ -0,0 +1,49 @@
+#' ---
+#' title: "Penguin data transformations"
+#' subtitle: "Exported as JSON and CSV"
+#' format: email
+#' email-attachments:
+#'   - "adelie-m.csv"
+#'   - "gentoo-f.csv"
+#' ---
+
+#' ## Setup
+library(palmerpenguins)
+library(jsonlite)
+
+#' ## Filtering
+gentoo_f <- subset(penguins, species == "Gentoo" & sex == "female")
+adelie_m <- subset(penguins, species == "Adelie" & sex == "male")
+
+#' ## Statistics (Gentoo)
+summary(gentoo_f)
+
+#' ## Statistics (Adelie)
+summary(adelie_m)
+
+#' ## Export
+write(jsonlite::toJSON(gentoo_f), "gentoo-f.json")
+write.csv(gentoo_f, "gentoo-f.csv")
+write(jsonlite::toJSON(adelie_m), "adelie-m.json")
+write.csv(adelie_m, "adelie-m.csv")
+
+#' # Exported data
+#'
+#' * [gentoo-f.json](gentoo-f.json)
+#' * [gentoo-f.csv](gentoo-f.csv)
+#' * [adelie-m.json](adelie-m.json)
+#' * [adelie-m.csv](adelie-m.csv)
+#'
+#' ::: {.email}
+#' ::: {.subject}
+#' Penguin data files
+#' :::
+
+#| echo: false
+#| output: asis
+cat("Identified", nrow(gentoo_f), "female Gentoo penguins.\n")
+cat("Identified", nrow(adelie_m), "male Adelie penguins.\n")
+cat("\n")
+cat("CSV files are attached.\n")
+
+#' :::