library(hansard)
context("lords part 1 functions")
test_that("lords functions return expected format", {
skip_on_cran()
skip_if(Sys.getenv(x = "TRAVIS_R_VERSION_STRING") == "devel")
# Voting Records
lvotesall <- hansard_lord_vote_record(530,
lobby = "all",
start_date = "2017-03-01",
end_date = "2017-04-01",
verbose = TRUE
)
expect_length(lvotesall, 11)
expect_type(lvotesall, "list")
expect_true(tibble::is_tibble(lvotesall))
# lvotesnot <- hansard_lord_vote_record(530, lobby = "notcontent",
# start_date = "2017-02-01", end_date = "2017-04-01")
# expect_length(lvotesnot, 10)
# expect_type(lvotesnot, "list")
# expect_true(tibble::is_tibble(lvotesnot))
#
# lvotescont <- hansard_lord_vote_record(530, lobby = "content",
# start_date = "2017-03-01", end_date = "2017-04-01")
# expect_length(lvotescont, 10)
# expect_type(lvotescont, "list")
# expect_true(tibble::is_tibble(lvotescont))
# Amendments
lamend <- hansard_lords_amendments(
decision = "Agreed",
start_date = "2017-03-17",
end_date = "2017-03-18", verbose = TRUE
)
expect_length(lamend, 29)
expect_type(lamend, "list")
expect_true(tibble::is_tibble(lamend))
expect_equal(nrow(lamend), 28)
lamendnu <- hansard_lords_amendments(
decision = NULL,
start_date = "2017-03-17",
end_date = "2017-03-20",
verbose = TRUE
)
expect_length(lamendnu, 29)
expect_type(lamendnu, "list")
expect_true(tibble::is_tibble(lamendnu))
expect_equal(nrow(lamendnu), 33)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.