Extracts R code cells from a Quarto document and writes them to an R script
file that can be rendered with the same options. The Markdown text is not
preserved, but R chunk options are kept as comment headers using Quarto's
#|
syntax.
This function is still experimental and may slightly change in future releases, depending on feedback.
Value
Invisibly returns the path to the created R script file, or
NULL
if no R code cells were found.
Details
This function processes a Quarto document by:
Extracting only R code cells (markdown and cell in other languages are ignored)
Preserving chunk options as
#|
comment headersAdding the document's YAML metadata as a spin-style header
Creating an R script that can be rendered with the same options
Chunk option handling:
Chunks with
purl: false
are completely skipped and not included in the outputChunks with
eval: false
have their code commented out (prefixed with#
) in the R scriptAll other chunk options are preserved as
#|
comment headers
File handling:
If the output R script already exists, the function will abort with an error
Non-R code cells (e.g., Python, Julia, Observable JS) are ignored
If no R code cells are found, the function does nothing and returns
NULL
Compatibility:
The resulting R script is compatible with Quarto's script rendering via
knitr::spin()
and can be rendered directly with quarto render script.R
.
See https://quarto.org/docs/computations/render-scripts.html#knitr for
more details on rendering R scripts with Quarto.
The resulting R script uses Quarto's executable cell format with #|
comments to preserve chunk options like label
, echo
, output
, etc.
The resulting R script could also be source()
d in R, as any eval = FALSE
will be commented out.
Limitations:
This function relies on static analysis of the Quarto document by quarto inspect
. This means that
any knitr specific options like child=
or specific feature like knitr::read_chunk()
are not supported.
They rely on tangling or knitting by knitr itself. For this support,
one should look at knitr::hook_purl()
or knitr::purl()
.