use a more official check that we're in RStudio

cpsievert · cpsievert · commit 9e962868772c · 2018-06-06T10:42:21.000-05:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -68,7 +68,8 @@ Suggests:
     rgeos,
     png,
     IRdisplay,
-    processx
+    processx,
+    rstudioapi
 Remotes:
   tidyverse/ggplot2
 LazyData: true
diff --git a/R/utils.R b/R/utils.R
@@ -1023,5 +1023,5 @@ try_library <- function(pkg, fun = NULL) {
 }
 
 is_rstudio <- function() {
-  identical(Sys.getenv("RSTUDIO", NA), "1")
+  requireNamespace('rstudioapi', quietly = TRUE) && rstudioapi::isAvailable()
 }

Original file line number	Diff line number	Diff line change
`@@ -1023,5 +1023,5 @@ try_library <- function(pkg, fun = NULL) {`
`1023`	`1023`	`}`
`1024`	`1024`
`1025`	`1025`	`is_rstudio <- function() {`
`1026`		`- identical(Sys.getenv("RSTUDIO", NA), "1")`
	`1026`	`+ requireNamespace('rstudioapi', quietly = TRUE) && rstudioapi::isAvailable()`
`1027`	`1027`	`}`