Merge branch 'master' of https://github.com/bcgov/bcdata

bcgov · Dec 21, 2018 · 6b3df6c · 6b3df6c
2 parents a2c00dc + 3a0cac1
commit 6b3df6c
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -29,7 +29,8 @@ Imports:
     utils
 Suggests: 
     knitr,
-    rmarkdown
+    rmarkdown,
+    testthat
 VignetteBuilder: 
     knitr
 Encoding: UTF-8

diff --git a/R/bcdc-web-services.R b/R/bcdc-web-services.R
@@ -69,9 +69,11 @@ bcdc_get_geodata <- function(id = NULL, query = NULL, crs = 3005, ...) {
 #'
 #'
 #' @examples
+#' \dontrun{
 #' ## So far only works with this layer
 #' bbox_coords = "1069159.051186301,1050414.7675306,1074045.5446851396,1054614.0978811644"
 #' bcdc_wms("WHSE_FOREST_VEGETATION.VEG_COMP_LYR_R1_POLY", bbox = bbox_coords)
+#' }
 
 ## TODO: Figure out a better method of determining the bounding box
 

diff --git a/man/bcdc_wms.Rd b/man/bcdc_wms.Rd
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,5 @@
+library(testthat)
+library(bcdata)
+library(sf)
+
+test_check("bcdata")
diff --git a/tests/testthat/test-get-geodata.R b/tests/testthat/test-get-geodata.R
@@ -0,0 +1,7 @@
+context("testing ability of bcdc_get_geodata to retrieve for bcdc")
+
+test_that("bcdc_get_geodata returns an sf object for a valid id", {
+  bc_airports <- bcdc_get_geodata("bc-airports")
+  expect_is(bc_airports, "sf")
+  expect_equal(attr(bc_airports, "sf_column"), "geometry")
+})