Nothing
tests/testthat/test-10-utils.R
In tidytuesdayR: Access the Weekly 'TidyTuesday' Project Dataset
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.readme = NULL,
class = "tt_gh"
),
class = "tt_data"
)
tt_ref_test_that("print.tt_data lists the available datasets", {
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.url = "fake_url",
.readme = NULL,
class = "tt_gh"
),
class = "tt_data"
)
capturedOutput <- capture_message({
print(tt_data)
})
testthat::expect_equal(
capturedOutput$message,
"Available datasets:\n\tvalue1 \n\tvalue2 \n\t\n"
)
})
tt_ref_test_that("print.tt lists all the available files for the weeks tt",{
check_api()
tt_obj <- tt_load_gh(2019, week = 16)
capturedOutput <- capture_message({
print(tt_obj)
})$message
expect_equal(
capturedOutput,
paste0("Available datasets in this TidyTuesday:\n\tbrexit.csv ",
"\n\tcorbyn.csv \n\tdogs.csv \n\teu_balance.csv ",
"\n\tpensions.csv \n\ttrade.csv \n\twomen_research.csv \n\t\n")
)
})
test_that("html_viewer returns NULL when running not in interactive mode",{
res <- html_viewer("www.google.com", is_interactive = FALSE)
expect_equal(res, NULL)
})
test_that("readme() will attempt to display the contents of the readme attribute",{
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.readme = xml2::read_html("<body><p>hello world</p></body>"),
class = "tt_gh"
),
class = "tt_data"
)
existing_files <- list.files(tempdir())
readme(tt_data)
readme_html <- setdiff(list.files(tempdir()), existing_files)
expect_equal(
xml2::read_html(file.path(tempdir(),readme_html)),
attr(attr(tt_data,".tt"),".readme")
)
})
test_that("contiguous_weeks() will attempt to display the contiguous weeks, collapsing continuous weeks",{
expect_equal(contiguous_weeks(1),"1")
expect_equal(contiguous_weeks(c(1,2)),"1-2")
expect_equal(contiguous_weeks(c(1:5)),"1-5")
expect_equal(contiguous_weeks(c(1:5, 7)),"1-5, 7")
expect_equal(contiguous_weeks(c(1:5, 7, 8)),"1-5, 7-8")
expect_equal(contiguous_weeks(c(1:5, 7, 9)),"1-5, 7, 9")
expect_equal(contiguous_weeks(c(1:5, 7, 9:11)),"1-5, 7, 9-11")
expect_equal(contiguous_weeks(c(1:5, 7, 9:11, 15)),"1-5, 7, 9-11, 15")
expect_equal(contiguous_weeks(c(5, 7, 9:11, 15)),"5, 7, 9-11, 15")
expect_equal(contiguous_weeks(c(5, 7, 9:11, 15:100)),"5, 7, 9-11, 15-100")
})
Try the tidytuesdayR package in your browser
Any scripts or data that you put into this service are public.
tidytuesdayR documentation built on Feb. 1, 2022, 9:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.readme = NULL,
class = "tt_gh"
),
class = "tt_data"
)
tt_ref_test_that("print.tt_data lists the available datasets", {
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.url = "fake_url",
.readme = NULL,
class = "tt_gh"
),
class = "tt_data"
)
capturedOutput <- capture_message({
print(tt_data)
})
testthat::expect_equal(
capturedOutput$message,
"Available datasets:\n\tvalue1 \n\tvalue2 \n\t\n"
)
})
tt_ref_test_that("print.tt lists all the available files for the weeks tt",{
check_api()
tt_obj <- tt_load_gh(2019, week = 16)
capturedOutput <- capture_message({
print(tt_obj)
})$message
expect_equal(
capturedOutput,
paste0("Available datasets in this TidyTuesday:\n\tbrexit.csv ",
"\n\tcorbyn.csv \n\tdogs.csv \n\teu_balance.csv ",
"\n\tpensions.csv \n\ttrade.csv \n\twomen_research.csv \n\t\n")
)
})
test_that("html_viewer returns NULL when running not in interactive mode",{
res <- html_viewer("www.google.com", is_interactive = FALSE)
expect_equal(res, NULL)
})
test_that("readme() will attempt to display the contents of the readme attribute",{
tt_data <- structure(
list(
value1 = "value1",
value2 = "value2"
),
.tt = structure(
c("value1.csv", "value2.csv"),
.files = c("value1.csv", "value2.csv"),
.readme = xml2::read_html("<body><p>hello world</p></body>"),
class = "tt_gh"
),
class = "tt_data"
)
existing_files <- list.files(tempdir())
readme(tt_data)
readme_html <- setdiff(list.files(tempdir()), existing_files)
expect_equal(
xml2::read_html(file.path(tempdir(),readme_html)),
attr(attr(tt_data,".tt"),".readme")
)
})
test_that("contiguous_weeks() will attempt to display the contiguous weeks, collapsing continuous weeks",{
expect_equal(contiguous_weeks(1),"1")
expect_equal(contiguous_weeks(c(1,2)),"1-2")
expect_equal(contiguous_weeks(c(1:5)),"1-5")
expect_equal(contiguous_weeks(c(1:5, 7)),"1-5, 7")
expect_equal(contiguous_weeks(c(1:5, 7, 8)),"1-5, 7-8")
expect_equal(contiguous_weeks(c(1:5, 7, 9)),"1-5, 7, 9")
expect_equal(contiguous_weeks(c(1:5, 7, 9:11)),"1-5, 7, 9-11")
expect_equal(contiguous_weeks(c(1:5, 7, 9:11, 15)),"1-5, 7, 9-11, 15")
expect_equal(contiguous_weeks(c(5, 7, 9:11, 15)),"5, 7, 9-11, 15")
expect_equal(contiguous_weeks(c(5, 7, 9:11, 15:100)),"5, 7, 9-11, 15-100")
})
Try the tidytuesdayR package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.