Nothing
library(parlitools)
context("mps_on_date")
test_that("mps_on_date return expected format", {
skip_on_cran()
xmpon <- mps_on_date("2018-01-30")
# expect_length(xmpon, 37)
expect_type(xmpon, "list")
expect_true(tibble::is_tibble(xmpon))
expect_true(is.na(xmpon$election_type[1]) == FALSE)
expect_true(nrow(xmpon) == 649)
xmpon2 <- mps_on_date(date1 = "1990-04-30", date2 = "2015-05-10")
# expect_length(xmpon2, 22)
expect_type(xmpon2, "list")
expect_true(tibble::is_tibble(xmpon2))
# expect_true(nrow(xmpon2)==1730)
xmpon3 <- mps_on_date(
date2 = "1990-04-30", date1 = "2015-05-10",
tidy = FALSE
)
# expect_length(xmpon3, 22)
expect_type(xmpon3, "list")
expect_true(tibble::is_tibble(xmpon3))
# expect_true(nrow(xmpon3)==1730)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.