RSC applicants template

RSC_applicants.R

library(whisker)
library(knitr)

responses <- read.csv(file="applicants.csv", stringsAsFactors=FALSE)
names(responses)[ncol(responses)] <- "attendance"

responses_lst <- apply(responses, 1, function(x) as.list(x))

template <- "
--------------------
# {{Name}}

* Title: {{Title}}
* Institution: {{Institutional.affiliation}}
* Email: {{email.address}}
* Applied on: {{Timestamp}}


## Experience:

{{Describe.your.experience.with.reproducible.science}}


## What motivates you?

{{What.motivates.you.to.attend.this.workshop.}}


## What do you expect to contribute?

{{What.do.you.expect.to.contribute.to.the.event.}}


## Interests and relevant work

{{Interests.and.relevant.work}}


## Demographic information

* Gender: {{Gender}}
* Ethnicity: {{Ethnicity}}
* Race: {{Race}}
* Citizenship: {{Citizenship}}


## Funding and attendance

* {{Funding}}
* {{attendance}}

"

text <- lapply(responses_lst, function(x) whisker.render(template, x, strict=FALSE))

cat(unlist(text), sep="\n", file="applications.Rmd")

knit2html("applications.Rmd")