Merge branch 'main' into quarto-available

Author: cderv

NEWS.md

@@ -2,6 +2,8 @@
 
 - Add `quarto_available()` function to check if Quarto CLI is found (thanks, @hadley, #187).
 
+- `quarto_render()` now correctly set `as_job` when not inside RStudio IDE and required **rstudioapi** functions are not available (#203).
+
 - Add several new wrapper function (thanks, @parmsam, #192): 
   - `quarto_list_extensions()` to list installed extensions using `quarto list extensions`
   - `quarto_remove_extension()` to remove an installed extension using `quarto remove extensions`

R/render.R

@@ -106,7 +106,12 @@ quarto_render <- function(
   }
 
   # render as job if requested and running within rstudio
-  if (as_job && rstudioapi::isAvailable()) {
+  if (
+    as_job &&
+      rstudioapi::isAvailable() &&
+      rstudioapi::hasFun("jobRunScript") &&
+      in_rstudio()
+  ) {
     message(
       "Rendering project as background job (use as_job = FALSE to override)"
     )

R/utils.R

@@ -25,3 +25,11 @@ merge_list <- function(x, y) {
 `%||%` <- function(x, y) {
   if (is_null(x)) y else x
 }
+
+in_positron <- function() {
+  identical(Sys.getenv("POSITRON"), "1")
+}
+
+in_rstudio <- function() {
+  identical(Sys.getenv("RSTUDIO"), "1")
+}