R/ensure_shell.R

In dnegrey/blogr: Lightweight blog framework using R markdown

#' @export 
ensure_shell <- function(blogdir = ".") {
    shell <- paste(blogdir, "shell.Rmd", sep = "/")
    if (!file.exists(shell)) {
        x <- c("",
               '```{r child="content.Rmd"}',
               '```')
        write(x, shell)
    }
}