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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.