Oops, check for RStudio AND for server

aebrahim · Mar 19, 2023 · fa49d20 · fa49d20
1 parent e2c3e34
commit fa49d20
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -19,7 +19,8 @@ is.oauth_app <- function(x) inherits(x, "oauth_app")
 is.oauth_endpoint <- function(x) inherits(x, "oauth_endpoint")
 
 is_rstudio_server <- function() {
-  Sys.getenv("RSTUDIO") == "1"
+  Sys.getenv("RSTUDIO") == "1" &&
+    Sys.getenv("RSTUDIO_PROGRAM_MODE") == "server"
 }
 
 add_line <- function(path, line) {