Added System Time

In order to see when the document was created, we add the system time.

data_analysis/report.Rmd

@@ -11,6 +11,10 @@ colnames(df) <- c("date", "name", "topic", "humidity", "temperature", "presure",
 df$date <- as.POSIXct(df$date)
 ```
 
+```{r echo=FALSE}
+Sys.time()
+```
+
 ## Humidity
 ```{r}
 p_humidity <- ggplot(df, aes(x=date, y=humidity, group=name, color=name)) + geom_line()
@@ -30,4 +34,4 @@ most_recent <- tail(df, n=30)
 most_recent <- most_recent[order(rev(most_recent$date)),]
 
 knitr::kable(most_recent, row.names = F)
-```
+```