Add date to the top of the report.

rcode.go

@@ -31,6 +31,6 @@ p2 <- ggplot(totals, aes(x=date, y=value, color=name))+geom_line()+stat_smooth(g
 pr1 <- ggplot(qrate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent,)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('Queens')+theme(plot.title=element_text(hjust = 0.5))
 pr2 <- ggplot(trate, aes(x=date, y=value)) + geom_line()+geom_smooth(method='gam',formula=y~s(x, bs="cs"),se=FALSE)+scale_y_continuous(labels = scales::percent)+labs(y='Positive Rate')+coord_cartesian(ylim=c(0,0.04))+ggtitle('New York')+theme(plot.title=element_text(hjust = 0.5))
 
-p <- grid.arrange(p1,p2,pr1,pr2,ncol=2)
+p <- grid.arrange(p1,p2,pr1,pr2,ncol=2,top=format(d[[nrow(d),1]], "%B %d %Y"))
 `
 }