Allow quarto_path() to return NULL (#221)

Co-authored-by: Christophe Dervieux <[email protected]>

Author: jeroen

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: quarto
 Title: R Interface to 'Quarto' Markdown Publishing System
-Version: 1.4.4.9003
+Version: 1.4.4.9004
 Authors@R: c(
     person("JJ", "Allaire", , "[email protected]", role = "aut",
            comment = c(ORCID = "0000-0003-0174-9868")),

NEWS.md

@@ -8,6 +8,8 @@
 
 - Fix an error with interactive prompt for extension approval (thanks, @wjschne, #212).
 
+- `quarto_path()` now correctly return `NULL` when no quarto is found in the PATH (thanks, @jeroen, #220, #221).
+
 # quarto 1.4.4
 
 - `quarto_preview()` now looks at `quarto preview` log to browse to the correct url when inside RStudio viewer (thanks, @aronatkins, #167).
@@ -29,7 +31,7 @@
 - New `is_using_quarto()` to check if a directory requires using Quarto (i.e. it has a `_quarto.yml` or at least one `*.qmd` file) (thanks, @hadley, #103).
 
 - New `quarto_create_project()` calls `quarto create project <type> <name>` (thanks, @maelle, #87).
-
+DESC
 - New `quarto_add_extension()` and `quarto_use_template()` to deal with Quarto extensions for a Quarto project. (thanks, @mcanouil, #45, @remlapmot, #42).
 
 - `quarto_render()` and `quarto_inspect()` gains a `profile` argument (thanks, @andrewheiss, #95, @salim-b, #123).

R/quarto.R

@@ -10,7 +10,7 @@ quarto_path <- function() {
   path_env <- get_quarto_path_env()
   quarto_path <- if (is.na(path_env)) {
     path <- unname(Sys.which("quarto"))
-    if (nzchar(path)) path else NULL
+    if (nzchar(path)) path else return(NULL)
   } else {
     path_env
   }