knitr inline todos

in-todo.Rmd

---
title: "knitr todos"
author: "Tristan Mahr"
date: "February 25, 2016"
output: 
  html_document: 
    keep_md: yes
---

```{r}
# function to display text inline
md_mono <- function(x) sprintf("`%s`", x)

# log todos to a yaml file
todos <- list(date = format(Sys.Date()))
todo <- function(note, note_fun = md_mono, outfile = "todos.yaml") {
  note <- stringr::str_replace_all(note, "\\n", " ")
  todos <<- c(todos, note)
  writeLines(yaml::as.yaml(todos), outfile)
  note_fun(note)
}
```

Thirty children participated in the study. `r todo("N children with hearing
loss")` had to be excluded, and `r todo("N parent reported late talkers")` had
to be excluded.


```{r}
str(todos)
```

```{r}
cat(yaml::as.yaml(todos))
```

out todo.md

knitr todos

Tristan Mahr
February 25, 2016

# function to display text inline
md_mono <- function(x) sprintf("`%s`", x)

# log todos to a yaml file
todos <- list(date = format(Sys.Date()))
todo <- function(note, note_fun = md_mono, outfile = "todos.yaml") {
  note <- stringr::str_replace_all(note, "\\n", " ")
  todos <<- c(todos, note)
  writeLines(yaml::as.yaml(todos), outfile)
  note_fun(note)
}

Thirty children participated in the study. N children with hearing loss had to be excluded, and N parent reported late talkers had to be excluded.

str(todos)

## List of 3
##  $ date: chr "2016-02-25"
##  $     : chr "N children with hearing loss"
##  $     : chr "N parent reported late talkers"

cat(yaml::as.yaml(todos))

## date: '2016-02-25'
## '': N children with hearing loss
## '': N parent reported late talkers

todos.yaml

date: '2016-02-25'
'': N children with hearing loss
'': N parent reported late talkers