add missing verifyAvailable calls

DESCRIPTION

@@ -2,7 +2,7 @@ Package: rstudioapi
 Title: Safely Access the RStudio API
 Description: Access the RStudio API (if available) and provide informative error
     messages when it's not.
-Version: 0.17.0.9000
+Version: 0.17.1
 Authors@R: c(
     person("Kevin", "Ushey", role = c("aut", "cre"), email = "[email protected]"),
     person("JJ", "Allaire", role = c("aut"), email = "[email protected]"),

NEWS.md

@@ -1,4 +1,8 @@
-# rstudioapi (development version)
+# rstudioapi 0.17.1
+
+* Ensure a more appropriate error message is emitted for calls to
+  `rstudioapi::getVersion()` and `rstudioapi::getMode()` outside
+  of RStudio.
 
 
 # rstudioapi 0.17.0

R/code.R

@@ -65,6 +65,7 @@ getVersion <- function() {
     return(callFun("getVersion"))
 
   # use fallback if not
+  verifyAvailable()
   base <- .BaseNamespaceEnv
   version <- base$.Call("rs_rstudioVersion", PACKAGE = "(embedding)")
   package_version(version)
@@ -87,6 +88,7 @@ getMode <- function() {
     return(callFun("getMode"))
 
   # use fallback if not
+  verifyAvailable()
   rstudio <- as.environment("tools:rstudio")
   if (rstudio$.rs.isDesktop()) "desktop" else "server"