spin(hair, knit = TRUE, report = TRUE, text = NULL, envir = parent.frame(),
format = c("Rmd", "Rnw", "Rhtml", "Rtex", "Rrst"), doc = "^#+'[ ]?",
comment = c("^[# ]*/[*]", "^.*[*]/ *$"))knit = FALSE)hair to provide the R source; if text is
not NULL, hair will be ignoredknit() to
evaluate the code##} to denote documentation, you can use
'^##\\\\s*'}} - comment
{a