Nothing
test_str_stuff <- function() {
v0 <- split_at_brace_pairs("{x} + y + {z}")
expect_equal(
v0,
c("{x}", " + y + ", "{z}"))
v1 <- strsplit_capture("x is .(x) and x+1 is .(x+1)", "\\.\\([^)]+\\)")
x <- 7
v2 <- sinterp("x is .(x), x+1 is .(x+1)\n.(x) is odd is .(x%%2 == 1)")
expect_equal(
v2,
"x is 7, x+1 is 8\n7 is odd is TRUE")
v3 <- sinterp("x is .(x), x+1 is .(x+1)\n.(x) is odd is .(x%%2 == 1)",
envir = list(x = 10))
expect_equal(
v3,
"x is 10, x+1 is 11\n10 is odd is FALSE")
d <- data.frame(x = 1:2, y = 3:4)
v4 <- sinterp("x is .(x), and y is .(y)", envir = d)
expect_equal(
v4,
"x is 1:2, and y is 3:4")
invisible(NULL)
}
test_str_stuff()
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.