Nothing
test.repeat <- function(){
checkEquals( "--" %x=% 10, paste(rep("-", 20), collapse = "") , msg = "", checkNames = FALSE )
checkEquals( "-+" %x=% 10, paste(rep("-+", 10), collapse = ""), checkNames = FALSE, msg = "" )
checkEquals( nchar("--" %x=|% 50), 50 , msg = "", checkNames = FALSE )
checkEquals( nchar("|-<+>-|" %x=|% 50), 50 , msg = "", checkNames = FALSE )
checkEquals( "|-<+>-|" %x=|% 50, substring(paste(rep("|-<+>-|", 10), collapse = "" ), 0, 50) , msg = "", checkNames = FALSE )
}
test.repeat.zero <- function(){
}
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.