Online questionnaire with Google Docs and report with knitr markdown

google_ss<-function(gid=NA, key=NA)
{
if (is.na(gid)) {stop("\nWorksheetnumber (gid) is missing\n")}
if (is.na(key)) {stop("\nDocumentkey (key) is missing\n")}
require(RCurl)
url<- getURL(paste("https://docs.google.com/spreadsheet/pub?key=", key,
"&single=true&gid=", gid, "&output=csv", sep=""),
cainfo= system.file("CurlSSL", "cacert.pem", package="RCurl"))
read.csv(textConnection(url), header=T, sep=",")
}
## this is the key for the spreadsheet with the questoinaire responses## key = 0AmwAunwURQNsdFplUTBZUTRLREtLUDhabGxBMHBRWmc taken from the documents url## and used in the below functiondata<- google_ss(gid=0, key="0AmwAunwURQNsdFplUTBZUTRLREtLUDhabGxBMHBRWmc")

I use a function (source) to read the data from Google Docs (source) .
With the data I produce a simple barplot with the responses to the questionnaire (this was uploaded to imgur.com). Then I push the .md-file to github for publishing.
Here is the .Rmd file (source) that I used for knitting to produce the .md file (source) which is rendered here by Github.
I use some inline code here - like so: There were r table(data[,2])[2] responses with 'NO', r table(data[,2])[3] responses with 'YES' and r table(data[,2])[1] responses were indefinite.