Small update and added tests

rOpenGov · Nov 22, 2014 · e4f91d4 · e4f91d4
1 parent 8ccca06
commit e4f91d4
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: pxweb
 Type: Package
 Title: R interface to the PX-Web/PC-Axis API
-Version: 0.5.2
-Date: 2014-11-21
+Version: 0.5.3
+Date: 2014-11-22
 Author: Mans Magnusson, Leo Lahti, Love Hansson
 Maintainer: Mans Magnusson <[email protected]>
 Description: Generic interface for the PX-Web/PC-Axis API. The PX-Web/PC-Axis

diff --git a/R/api_parameters.R b/R/api_parameters.R
@@ -7,8 +7,6 @@
 #' @examples api_parameters()
 api_parameters <- function(url = NULL) {
 
-  warning("api_parameters() is depricated, please use api_catalogue()")
-
   api.list <- get_api_list()
 
   # If API is specified, pick the parameters

diff --git a/tests/testthat/test-get_pxweb_data.R b/tests/testthat/test-get_pxweb_data.R
@@ -148,3 +148,16 @@ test_that(desc="get_pxweb_data()",{
   }
 })
 
+test_that(desc="Test warnings",{  
+
+  skip_on_cran()
+
+  expect_that({
+    test_url <- "http://api.scb.se/OV0104/v1/doris/sv/ssd/TK/TK1001/TK1001S/SnabbStatTK1001"
+    test_dims <- list("ContentsCode" = c("TK1001AE"), "Tid" = c("2014M02"))
+    test_data <- 
+      get_pxweb_data(url = test_url,
+                     dims = test_dims,
+                     clean = TRUE)}, 
+    not(gives_warning()))
+})