Merge pull request #67 from The-Strategy-Unit/tj/nhs-r-unit-testing-fix

removes code chunk that caused action to fail

presentations/2023-08-23_nhs-r_unit-testing/index.qmd

@@ -655,30 +655,6 @@ test_that("it returns 'y' if y is bigger than x", {
 
 ## Testing complex function
 
-```{r}
-#| include: FALSE
-# create a mock db/csv for this demo
-withr::local_file("data.db")
-withr::local_file("conditions.csv")
-local({
-  con <- DBI::dbConnect(RSQLite::SQLite(), "data.db")
-
-  tibble::tibble(
-    date = format(Sys.Date() + sample(0:20, 300, TRUE), "%Y-%m-%d"),
-    condition = sample(letters[1:3], 300, TRUE)
-  ) |>
-    dplyr::copy_to(dest = con, df = _, name = "data_table", temporary = FALSE)
-
-  DBI::dbDisconnect(con)
-})
-
-tibble::tibble(
-  condition = letters[1:3],
-  condition_type = c("important", "important", "non-important")
-) |>
-  readr::write_csv("conditions.csv")
-```
-
 :::{.columns}
 
 ::::{.column width=70%}
@@ -1044,4 +1020,5 @@ The test works!
 
 Questions?
 
+
 [[email protected]](mailto:[email protected]) / DM me on slack