R/q.new.R

In okux/qrmarkdown: Job Queue Management For Rmarkdown

q.new <- function()
{
  TMP <-
"---
title: 'Untitled'
output: html_document
params:
  jid: 1
---
Date: `r Sys.Date()` JID: `r params$jid`

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Write Your Code

```{r cars}
summary(cars)
```
"
  rstudioapi::documentNew(TMP, type='rmarkdown')
}