tests/testthat/test-realtime.service.R

context("testing realtime.service")

test_that ("check that metadata parseing works", {
  meta <- system.file("extdata/Sandy_PCOI_metadata_updated2015May29.xml", package = "hazardItems")
  result <- realtime.service(serviceEndpoint = meta)
  result <- realtime.service(serviceEndpoint = meta, attribute = "PCOL")
  result <- realtime.service(serviceEndpoint = meta, attribute = "POVW")
  result <- realtime.service(serviceEndpoint = meta, attribute = "PIND")
  result <- realtime.service(serviceEndpoint = meta, attribute = "DHIGH")
  result <- realtime.service(serviceEndpoint = meta, attribute = "DLOW")
  result <- realtime.service(serviceEndpoint = meta, attribute = "MEAN")
  result <- realtime.service(serviceEndpoint = meta, attribute = "EXTREME")
  expect_true(grepl("exceedance",fromJSON(result)$full$text))
})
USGS-R/hazardItems documentation built on Aug. 15, 2020, 11:28 a.m.