#'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, # FIXME ^ operator has to be surrounded by one space (or none?!), never multiple
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.