withr::with_tempdir({
  dir <- getwd()
  
  file.create(file.path(dir, "refs.bib"))
  
  rmd <- file.path(dir, "test.Rmd")
  readr::write_file(
    pakret:::dedent("
      ---
      bibliography: refs.bib
      ---
      
      ```{r}
      #| include: false
      library(dplyr)
      conflicted::conflicts_prefer(dplyr::filter)
      library(pakret)
      ```
      
      `r pkrt('tidyverse')`
      
      ## References
    "),
    file = rmd
  )
  
  callr::r(pakret:::render, list(input = rmd, knit_root_dir = dir))
  
  cat(readr::read_file(file.path(dir, "test.md")))
})