Nothing
# testthat::test_file("tests/testthat/test-read_results.R")
test_that("read_results PDF works", {
file <-
system.file("extdata", "Texas-Florida-Indiana.pdf", package = "SwimmeR")
file <- read_results(file)
expect_match(paste(str_extract_all(file[299], "\\d")[[1]], collapse = ""),
"1215946")
})
test_that("read_results HTML works", {
skip_on_cran() # due to risk of external resources failing
file <- "http://www.nyhsswim.com/Results/Boys/2008/NYS/Single.htm"
if (is_link_broken(file) == TRUE) {
warning("Link to external data is broken")
} else {
expect_match(read_results(file)[684],
"\n 1 Ricky Henahan 12 5-WEST IRONDEQUO 50.36 49.76 AAA 24")
}
})
test_that("read_results_flag PDF works", {
file <-
system.file("extdata", "Texas-Florida-Indiana.pdf", package = "SwimmeR")
file <- read_results(file)
expect_match(file[1],
"read_results_flag")
})
test_that("read_results HTML works", {
skip_on_cran() # due to risk of external resources failing
file <- "https://calbears.com/sports/2007/10/20/Stats_4752.aspx"
if (is_link_broken(file) == TRUE) {
warning("Link to external data is broken")
} else {
expect_match(read_results(file)[604],
"\n 1 Thomas, Tara California-PC 54.75 55.30 20 ")
}
})
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.