get paws version from cran (#853)

* migrate vendor api from aws-sdk-js to botocore

* add botocore to submodules

* migrate vendor from aws-sdk-js to botocore

* update services and remove deprecated aws services

* remove aws-sdk-js as vendor api

* update r docs to reflect botocore

* fixed usage

* typo

* get version from cran

make.paws/R/cran_category.R

@@ -17,7 +17,7 @@ make_category <- function(category, service_names, sdk_dir, out_dir) {
   title <- category$title
   description <- category$description
   imports <- .paws.common.import.version
-  version <- get_version(sdk_dir)
+  version <- get_version(minor = 1)
 
   if (is.null(name) || is.null(title) || is.null(description)) {
     stop("missing name, title, or description")

make.paws/R/cran_sub_category.R

@@ -1,6 +1,6 @@
 # Make the categories from collection of sub-categories
 make_category_collection <- function(sdk_dir, out_dir, categories, package, service_names) {
-  version <- get_version(sdk_dir)
+  version <- get_version(minor = 1)
   package <- sprintf("paws.%s", package)
   package_dir <- file.path(out_dir, package)
   write_skeleton_category(package_dir)

make.paws/R/make_sdk.R

@@ -43,12 +43,7 @@ make_sdk <- function(
   with_cache_dir(cache_dir, {
     clear_dir(temp_dir)
     clear_dir(out_doc_dir)
-    version <- tryCatch(
-      get_version(out_doc_dir),
-      error = function(e) {
-        return("0.0.1")
-      }
-    )
+    version <- get_version(minor = 1)
     write_skeleton(temp_dir, version)
     write_skeleton(out_doc_dir, version)
     for (api in apis) {

make.paws/R/package.R

@@ -53,8 +53,19 @@ get_description <- function(path) {
 }
 
 # Get the version number from the package in the given path.
-get_version <- function(path) {
-  desc::desc_get("Version", file.path(path, "DESCRIPTION"))
+# get_version <- function(path) {
+#   desc::desc_get("Version", file.path(path, "DESCRIPTION"))
+# }
+cache_env <- new.env(parent = emptyenv())
+get_version <- function(major = 0, minor = 0, patch = 0) {
+  if (is.null(cache_env$version)) {
+    df <- as.data.frame(utils::available.packages(repos = "https://cran.rstudio.com"))
+    cache_env$version <- package_version(df[df$Package == "paws", "Version"])
+    cache_env$version[[c(1,1)]] <- cache_env$version$major + major
+    cache_env$version[[c(1,2)]] <- cache_env$version$minor + minor
+    cache_env$version[[c(1,3)]] <- cache_env$version$patch + patch
+  }
+  return(cache_env$version)
 }
 
 # Delete all files in a folder, with some given exceptions.