escape computation in demo block and remove keep-md

Author: cderv

vignettes/dynamic-metadata.qmd

@@ -4,7 +4,6 @@ format:
   html:
     toc: true
     toc-depth: 3
-keep-md: true
 vignette: >
   %\VignetteIndexEntry{Dynamic Metadata in Quarto Documents}
   %\VignetteEngine{quarto::html}
@@ -106,25 +105,25 @@ email-preview: true
 
 Pick variant
 
-```{r}
+```{{r}}
 variant <- sample(1:3, 1)
 ```
 
-```{r}
+```{{r}}
 #| echo: false
 #| output: asis
 quarto::write_yaml_metadata_block(.list = setNames(list(TRUE), sprintf("is_email_variant_%d", variant)))
 ```
 
 ::: {.email}
 
-This email was sent from Quarto! With conditional output for condition `r variant`
+This email was sent from Quarto! With conditional output for condition `{{r}} variant`
 
 ::: {.content-visible when-meta="is_email_variant_1"}
 
 email body 1
 
-```{r}
+```{{r}}
 head(mtcars)
 ```
 
@@ -138,7 +137,7 @@ subject 1
 
 email body 2 
 
-```{r}
+```{{r}}
 head(palmerpenguins::penguins)
 ```
 
@@ -152,7 +151,7 @@ subject 2
 
 email body 3
 
-```{r}
+```{{r}}
 praise::praise()
 ```
 
@@ -170,9 +169,9 @@ TRUE
 
 ## Logging
 
-Case: `r variant`
+Case: `{{r}} variant`
 
-Report run: `r Sys.time()`
+Report run: `{{r}} Sys.time()`
 ````
 
 This example demonstrates several advanced concepts: