Nothing
test_that("general test case", {
formstr <- "A*0.2+C*0.13+D*1000 + (1|D) + (D|1+C)"
replace <- c("(1|D)", "(D|1+C)")
out <- str_replace_all(formstr, replace)
expect_equal(out, "A*0.2+C*0.13+D*1000 + + ")
})
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.