as_job = auto now does not prevent rendering in positron context (#246)

Author: cderv

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: quarto
 Title: R Interface to 'Quarto' Markdown Publishing System
-Version: 1.4.4.9008
+Version: 1.4.4.9009
 Authors@R: c(
     person("JJ", "Allaire", , "jj@posit.co", role = "aut",
            comment = c(ORCID = "0000-0003-0174-9868")),

NEWS.md

@@ -1,5 +1,7 @@
 # quarto (development version)
 
+- `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")
+}