lockedata · Nov 30, 2017 · Nov 30, 2017 · Nov 30, 2017 · Nov 30, 2017
Showing with 63 additions and 1 deletion.

+3 −1 DESCRIPTION

+2 −0 NAMESPACE

+22 −0 R/createSwaggerProject.R

+1 −0 R/pRojects-package.r

+30 −0 man/createSwaggerProject.Rd

+5 −0 tests/testthat/test-createSwaggerProject.R
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,6 +21,8 @@ Imports: devtools,
     packrat,
     shiny,
     miniUI,
-    methods
+    methods,
+    swagger
+Remotes: jonmcalder/swagger
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 6.0.1
diff --git a/NAMESPACE b/NAMESPACE
@@ -3,5 +3,7 @@
 export(createAnalysisProject)
 export(createBasicProject)
 export(createPackageProject)
+export(createSwaggerProject)
 export(createTrainingProject)
+importFrom(swagger,swag)
 importFrom(utils,packageVersion)
diff --git a/R/createSwaggerProject.R b/R/createSwaggerProject.R
@@ -0,0 +1,22 @@
+#' Create Package from Swagger API
+#'
+#' @param name Project
+#' @param dir Directory to create
+#' @param url URL or path to swagger JSON specification
+#' @param overwrite Should we overwrite `dir` if it exists? (default: FALSE)
+#'
+#' @return path to the newly created package path
+#' @export
+#'
+#' @examples
+#' \dontrun{
+#'   createSwaggerProject("petstore",
+#'       dir = getwd(),
+#'       url = "http://petstore.swagger.io/v2/swagger.json")
+#' }
+createSwaggerProject <- function(name,
+                                 dir = name,
+                                 url,
+                                 overwrite = FALSE){
+  swag(spec = url, pkg_name = name, target_dir = dir, overwrite = overwrite)
+}
diff --git a/R/pRojects-package.r b/R/pRojects-package.r
@@ -10,5 +10,6 @@
 #' @name pRojects
 #' @docType package
 #'
+#' @importFrom swagger swag
 #' @importFrom utils packageVersion
 NULL
diff --git a/man/createSwaggerProject.Rd b/man/createSwaggerProject.Rd
diff --git a/tests/testthat/test-createSwaggerProject.R b/tests/testthat/test-createSwaggerProject.R
@@ -0,0 +1,5 @@
+context("createSwaggerProject")
+
+test_that("see if can call swagger",{
+  expect_output(print(swag))
+})