fix: set options$engine to support quarto 1.3 (#110)

Fix #109

See also quarto-dev/quarto-cli#4735

R/knitr-engine.R

@@ -21,6 +21,10 @@ eng_prql <- function(options) {
   # elm coincidentally provides the best syntax highlight for prql.
   options$lang <- options$lang %||% "elm"
 
+  # Workaround for Quarto CLI 1.3
+  # https://github.com/quarto-dev/quarto-cli/pull/4735
+  options$engine <- "elm"
+
   # Prints a SQL code block if there is no connection
   if (is.null(options$connection)) {
     options$comment <- ""

tests/testthat/_snaps/knitr-engine.md

@@ -157,3 +157,55 @@
       ```
       
 
+---
+
+    Code
+      .knit_file("change-lang.Rmd")
+    Output
+      
+      ```prql
+      from mtcars
+      filter cyl > 6
+      select [cyl, mpg]
+      derive [mpg_int = round 0 mpg]
+      take 3
+      ```
+      
+      ```sql
+      SELECT
+        cyl,
+        mpg,
+        ROUND(mpg, 0) AS mpg_int
+      FROM
+        mtcars
+      WHERE
+        cyl > 6
+      LIMIT
+        3
+      
+      -- Generated by PRQL compiler version:0.6.1 (https://prql-lang.org)
+      ```
+      
+      
+      
+      
+      ```foo
+      from mtcars
+      filter cyl > 6
+      select [cyl, mpg]
+      derive [mpg_int = round 0 mpg]
+      take 3
+      ```
+      
+      
+      
+      
+      Table: 3 records
+      
+      | cyl|  mpg| mpg_int|
+      |---:|----:|-------:|
+      |   8| 18.7|      19|
+      |   8| 14.3|      14|
+      |   8| 16.4|      16|
+      
+

tests/testthat/files/change-lang.Rmd

@@ -0,0 +1,17 @@
+```{prql, file="simple.prql", lang="prql"}
+```
+
+```{r}
+#| echo: false
+#| file: set-db.R
+```
+
+```{prql}
+#| connection: con
+#| lang: foo
+#| file: simple.prql
+```
+
+```{r, echo=FALSE}
+dbDisconnect(con)
+```

tests/testthat/files/glue.Rmd

@@ -10,10 +10,7 @@ select {{b}}
 
 ```{r}
 #| echo: false
-
-library(DBI)
-con <- dbConnect(RSQLite::SQLite(), ":memory:")
-dbWriteTable(con, "mtcars", mtcars)
+#| file: set-db.R
 ```
 
 ```{prql}

tests/testthat/files/r-style-opts.Rmd

@@ -1,7 +1,4 @@
-```{r, echo=FALSE}
-library(DBI)
-con <- dbConnect(RSQLite::SQLite(), ":memory:")
-dbWriteTable(con, "mtcars", mtcars)
+```{r, echo=FALSE, file="set-db.R"}
 ```
 
 ```{prql engine.opts=list(target="sql.mssql", signature_comment=FALSE), file="simple.prql"}

tests/testthat/files/set-db.R

@@ -0,0 +1,3 @@
+library(DBI)
+con <- dbConnect(RSQLite::SQLite(), ":memory:")
+dbWriteTable(con, "mtcars", mtcars)

tests/testthat/files/yaml-style-opts.Rmd

@@ -1,9 +1,6 @@
 ```{r}
 #| echo: false
-
-library(DBI)
-con <- dbConnect(RSQLite::SQLite(), ":memory:")
-dbWriteTable(con, "mtcars", mtcars)
+#| file: set-db.R
 ```
 
 ```{prql}

tests/testthat/test-knitr-engine.R

@@ -25,4 +25,5 @@ test_that("Snapshot test of knitr-engine", {
     cran = TRUE
   )
   expect_snapshot(.knit_file("glue.Rmd"), cran = TRUE)
+  expect_snapshot(.knit_file("change-lang.Rmd"), cran = TRUE)
 })