Add pxweb_table_response_v2

Author: MansMeg

R/pxweb_table_response_v2.R

@@ -0,0 +1,27 @@
+#' Construct a \code{table_response_v2} object.
+#'
+#' @description
+#' An object that contain the data for a given PXWEB TableResponse (API v2).
+#'
+#' @param x a list returned from a PXWEB API to convert to a \code{table_response_v2} object.
+#'
+#' @return
+#' a \code{pxweb_table_v2} object.
+#'
+#' @keywords internal
+pxweb_table_response_v2 <- function(x) {
+  checkmate::assert_class(x, "list")
+  assert_pxweb_table_response_v2(x)
+  class(x) <- c("pxweb_table_response_v2", "list")
+  x
+}
+
+#' Assert that x is a correct \code{pxweb_data_jsonstat} object.
+#' Assert a json-stat version 1.0 or later object
+#' @param x an object to check.
+#' @keywords internal
+assert_pxweb_table_response_v2 <- function(x) {
+  checkmate::assert_class(x, c("list"))
+  checkmate::assert_names(names(x), must.include = c("language", "id", "label", "updated", "firstPeriod", "lastPeriod", "variableNames", "links"))
+}
+

man/assert_pxweb_table_response_v2.Rd

@@ -0,0 +1,16 @@
+
+test_that(desc = "pxweb API v2", {
+  # Keep same style as existing live API tests.
+  skip_on_cran()
+  skip_if_offline()
+
+  r <- readRDS(test_path("test_data/pxweb_table_response_v2.rds"))
+  x <- suppressWarnings(httr::content(r, as = "parsed"))
+  expect_silent(x <- pxweb_table_response_v2(x))
+  expect_s3_class(x, "pxweb_table_response_v2")
+
+#  pxapi_v2 <- pxweb_get(url = "https://statistikdatabasen.scb.se/api/v2/tables/TAB5974/")
+})
+
+
+