## File Name: SRM_OPEN_SINK.R
## File Version: 0.02
SRM_OPEN_SINK <- function(file, suffix="__SUMMARY.Rout")
{
if (!is.null(file)){
sink(paste0(file, suffix), split=TRUE)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.