#' this function does
#'
#' @param x a parameter.
#' indented comments
a <- function(x) {
test_that("I want to test", {
out <- c(1, c(
22 + 1
))
if (x > 10) {
for (x in 22) { # FIXME in operator only to be surrounded by one space. What about %in%?
prin(x)
}
}
})
# we like comments too
c(
list(x + 2),
c(c(
26^2,
8,
7
))
)
call(
1, 2,
23 + Inf - 99, call(
16
)
)
}
# comments everywhere
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.