better API version

ropensci · Nov 16, 2017 · fa01e2c · fa01e2c
1 parent 97d1ff0
commit fa01e2c
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/R/natural-language.R b/R/natural-language.R
@@ -78,7 +78,7 @@ gl_nlp <- function(string,
   language      <- match.arg(language)
   encodingType  <- match.arg(encodingType)
   # global env set in version.R
-  version       <- .glr$version
+  version       <- get_version()
 
   api_results <- map(string, gl_nlp_single,
       nlp_type = nlp_type,

diff --git a/R/version.R b/R/version.R
@@ -1,4 +1,10 @@
 # used to specify the API endpoint - on GitHub beta, on CRAN, stable
-.glr <- new.env(parent = emptyenv())
-.glr$version <- "v1"
+get_version <- function(){
+  if(grepl("\\.9...$", packageVersion("googleLanguageR"))){
+    version <- "v1beta2"
+  } else {
+    version <- "v1"
+  }
 
+  version
+}