more snapshot tests

Author: cscheid

dev-docs/feature-format-matrix/qmd-files/code-annotation/docusaurus.qmd

@@ -0,0 +1,17 @@
+---
+format: docusaurus-md
+code-annotations: true
+code-line-numbers: true
+---
+
+```r
+library(tidyverse)
+library(palmerpenguins)
+penguins |>                                      # <1>
+  mutate(                                        # <2>
+    bill_ratio = bill_depth_mm / bill_length_mm, # <2>
+    bill_area  = bill_depth_mm * bill_length_mm  # <2>
+  )                                              # <2>
+```
+1. Take `penguins`, and then,
+2. add new columns for the bill ratio and bill area.

dev-docs/feature-format-matrix/qmd-files/layout/tabset/docusaurus.qmd

@@ -0,0 +1,34 @@
+---
+format: docusaurus-md
+---
+
+::: {.panel-tabset}
+## R
+
+``` {.r}
+fizz_buzz <- function(fbnums = 1:50) {
+  output <- dplyr::case_when(
+    fbnums %% 15 == 0 ~ "FizzBuzz",
+    fbnums %% 3 == 0 ~ "Fizz",
+    fbnums %% 5 == 0 ~ "Buzz",
+    TRUE ~ as.character(fbnums)
+  )
+  print(output)
+}
+```
+
+## Python
+
+``` {.python}
+def fizz_buzz(num):
+  if num % 15 == 0:
+    print("FizzBuzz")
+  elif num % 5 == 0:
+    print("Buzz")
+  elif num % 3 == 0:
+    print("Fizz")
+  else:
+    print(num)
+```
+
+:::

tests/docs/smoke-all/2024/01/19/docusaurus/docusaurus-code-annotations.mdx.snapshot

@@ -0,0 +1,25 @@
+---
+format: docusaurus-md
+code-annotations: true
+code-line-numbers: true
+---
+
+
+
+
+
+```r showLineNumbers
+library(tidyverse)
+library(palmerpenguins)
+penguins |>
+  mutate(
+    bill_ratio = bill_depth_mm / bill_length_mm,
+    bill_area  = bill_depth_mm * bill_length_mm
+  )
+```
+
+Line 3  
+Take `penguins`, and then,
+
+Lines 4-7  
+add new columns for the bill ratio and bill area.

tests/docs/smoke-all/2024/01/19/docusaurus/docusaurus-code-annotations.qmd

@@ -0,0 +1,21 @@
+---
+format: docusaurus-md
+code-annotations: true
+code-line-numbers: true
+_quarto:
+  tests:
+    docusaurus-md:
+      ensureSnapshotMatches: true
+---
+
+```r
+library(tidyverse)
+library(palmerpenguins)
+penguins |>                                      # <1>
+  mutate(                                        # <2>
+    bill_ratio = bill_depth_mm / bill_length_mm, # <2>
+    bill_area  = bill_depth_mm * bill_length_mm  # <2>
+  )                                              # <2>
+```
+1. Take `penguins`, and then,
+2. add new columns for the bill ratio and bill area.