From 5c0e73e0604a53ef98932acb82adbee783831a5b Mon Sep 17 00:00:00 2001
From: Christophe Dervieux <christophe.dervieux@gmail.com>
Date: Thu, 25 Jan 2024 17:55:02 +0100
Subject: [PATCH] Clean example correctly

---
 R/quarto.R             | 1 +
 man/is_using_quarto.Rd | 1 +
 2 files changed, 2 insertions(+)

diff --git a/R/quarto.R b/R/quarto.R
index 4b39c27..6498af4 100644
--- a/R/quarto.R
+++ b/R/quarto.R
@@ -70,6 +70,7 @@ quarto_run_what <- function(what = character(), args = character(), quarto_bin =
 #' is_using_quarto(tmpdir)
 #' file.create(file.path(tmpdir, "_quarto.yml"))
 #' is_using_quarto(tmpdir)
+#' unlink(tmpdir, recursive = TRUE)
 #' @export
 is_using_quarto <- function(dir = ".", verbose = FALSE) {
   has_quarto_yml <- length(list.files(dir, pattern = "_quarto\\.yml$", full.names = TRUE)) > 0
diff --git a/man/is_using_quarto.Rd b/man/is_using_quarto.Rd
index 98a398e..d95a3de 100644
--- a/man/is_using_quarto.Rd
+++ b/man/is_using_quarto.Rd
@@ -23,4 +23,5 @@ dir.create(tmpdir <- tempfile())
 is_using_quarto(tmpdir)
 file.create(file.path(tmpdir, "_quarto.yml"))
 is_using_quarto(tmpdir)
+unlink(tmpdir, recursive = TRUE)
 }