Added data_classes

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: HIBPwned
 Title: Bindings for the HaveIBeenPwned.com data breach API
-Version: 0.0.0.9003
+Version: 0.0.0.9004
 Authors@R: c(person("Steph", "Locke"
              , email = "stephanie.g.locke@gmail.com"
              , role = c("aut", "cre"))

NAMESPACE

@@ -4,6 +4,7 @@ export(HIBP_headers)
 export(account_breaches)
 export(breached_site)
 export(breached_sites)
+export(data_classes)
 importFrom(httr,add_headers)
 importFrom(httr,content)
 importFrom(jsonlite,fromJSON)

R/data_classes.R

@@ -0,0 +1,15 @@
+#' Get list of classes of data that have been
+#' exposed in breaches
+#'
+#' @param ... Optional passthrough to HIBP_headers()
+#'
+#' @return Data.frame containing data class details
+#' @export
+#'
+#' @examples
+#' data_classes()
+data_classes<-function(...){
+  URLS<-"https://haveibeenpwned.com/api/dataclasses"
+  res<- GETcontent(URLS, HIBP_headers(...))
+  return(res)
+}

tests/testthat/test-data_classes.R

@@ -0,0 +1,10 @@
+context("data_classes")
+
+test_that("data_classes works",{
+  res<-data_classes()
+  expect_is(res, "character")
+  expect_gte(length(res),48)
+
+  # With header passthrough
+  expect_error(data_classes(agent="blah"),NA)
+})