m

rhijmans · rhijmans · commit 64f904e43d01 · 2025-11-04T04:26:59.000-08:00
diff --git a/R/click.R b/R/click.R
@@ -15,11 +15,11 @@
 #}
 
 RStudio_warning <- function() {
-	if (.terra_environment$RStudio_warned) return()
+	if (isTRUE(.terra_environment$RStudio_warned)) return()
 	if (Sys.getenv("RSTUDIO_USER_IDENTITY") != "") {
-		warn("'click', 'draw', and 'sel' may not work properly\nwith the default RStudio plotting window. See ?click")
+		warn("'click', 'draw', 'zoom', and 'sel' may not work properly\nwith the default RStudio plotting window. See ?click")
 	}
-	.terra_environment$RStudio_warned <- TRUE
+	try(.terra_environment$RStudio_warned <- TRUE, silent=TRUE)
 }
 
 

Original file line number	Diff line number	Diff line change
`@@ -15,11 +15,11 @@`
`15`	`15`	`#}`
`16`	`16`
`17`	`17`	`RStudio_warning <- function() {`
`18`		`- if (.terra_environment$RStudio_warned) return()`
	`18`	`+ if (isTRUE(.terra_environment$RStudio_warned)) return()`
`19`	`19`	`if (Sys.getenv("RSTUDIO_USER_IDENTITY") != "") {`
`20`		`- warn("'click', 'draw', and 'sel' may not work properly\nwith the default RStudio plotting window. See ?click")`
	`20`	`+ warn("'click', 'draw', 'zoom', and 'sel' may not work properly\nwith the default RStudio plotting window. See ?click")`
`21`	`21`	`}`
`22`		`- .terra_environment$RStudio_warned <- TRUE`
	`22`	`+ try(.terra_environment$RStudio_warned <- TRUE, silent=TRUE)`
`23`	`23`	`}`
`24`	`24`
`25`	`25`