x <- 1:10
a <- "\\link{mean}(x)"
a <- "before tab\tafter tab"
test <- "\\a\\b\\c\\d\\e\\f\\g\\h\\i\\j\\k\\l\\m\\n\\o\\p\\q\\r\\s\\t\\u\\v\\w\\x\\y\\z"
stopifnot(test == paste("\\", letters, collapse = "", sep = ""))
x %% 2
x %/% 2
# A strangely named function
"%\\%" <- function(a, b) a + b
10 %\% 10
## Not run:
# a <- 1
# # this code will not be run
# ## End(Not run)
b <- 1
# this code will with example(), but not by R CMD check
Run the code above in your browser using DataLab