Revert "try removing snapshot tests"

This reverts commit b3eaf8c.

tests/testthat/_snaps/add_chunk.md

@@ -0,0 +1,24 @@
+# add_chunk() generates correct R Markdown chunk
+
+    Code
+      cat(add_chunk("plot(cars$speed, cars$distance)"))
+    Output
+      ```{r} 
+      #| echo: false 
+      #| warning: false 
+      #| eval: true 
+      plot(cars$speed, cars$distance)
+      ``` 
+
+---
+
+    Code
+      cat(add_chunk("plot(cars$speed, cars$distance)", echo = "true"))
+    Output
+      ```{r} 
+      #| echo: true 
+      #| warning: false 
+      #| eval: true 
+      plot(cars$speed, cars$distance)
+      ``` 
+

tests/testthat/test-add_chunk.R

@@ -0,0 +1,9 @@
+test_that("add_chunk() generates correct R Markdown chunk", {
+  # The test checks if the add_chunk() function correctly generates an R Markdown chunk.
+
+  # Use expect_snapshot() to capture and compare the output of the add_chunk() function.
+  # This ensures that any changes in the function's output will be detected in future test runs.
+  expect_snapshot(cat(add_chunk("plot(cars$speed, cars$distance)")))
+
+  expect_snapshot(cat(add_chunk("plot(cars$speed, cars$distance)", echo = "true")))
+})