tests/testthat/test_rdf.R

context("RDF")

URL = "http://feeds.nature.com/nplants/rss/current"

document = paste(readLines(URL), collapse = "\n")

test_that("parse RDF feed", {
  feed <<- feed_read(document)
  expect_is(feed, "list")
})

test_that("identify RDF feed", {
  expect_equal(feed_type(feed), "RDF")
})

test_that("read RDF feed", {
  expect_type(feed.extract(URL), "list")
})
DataWookie/feedeR documentation built on Oct. 1, 2020, 9:48 a.m.