Nothing
test_that("extract_pattern fails when expected", {
expect_error(extract_pattern())
expect_error(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"AIRPORT_SECTION",
1
))
expect_error(extract_pattern(
"../rmd/pattern_extraction.Rmd",
c(
"AIRPORT_SECTION",
"Other Junk"
)
))
expect_error(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"AIRPORT_SCTION"
))
expect_error(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"graph_sankey"
))
expect_error(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"Not in file"
))
expect_warning(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"airportcode"
))
})
test_that("extract_pattern extracts a pattern", {
expect_equal(
nchar(extract_pattern(
"../rmd/pattern_extraction.Rmd",
"AIRPORT_SECTION"
)),
273
)
expect_equal(
nchar(extract_pattern("../rmd/pattern_extraction.Rmd",
"AIRPORT_SECTION",
preserve = T
)),
304
)
})
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.