Only show the last two days

2021-10-25 21:41:41 +02:00
parent 9fb63a3cb3
commit f88592a60c
1 changed files with 8 additions and 1 deletions
@@ -6,13 +6,20 @@ output: html_document
 ```{r setup, include=FALSE}
 library(ggplot2)
 knitr::opts_chunk$set(echo = TRUE)
+
 df <- read.csv("../data.csv", header = F)
 colnames(df) <- c("date", "name", "topic", "humidity", "temperature", "presure", "battery", "voltage", "linkquality")
+
 df$date <- as.POSIXct(df$date)
+
+now <- Sys.time()
+cut_off <- now - (2*60*60*24)
+df <- subset(df, date > cut_off)
 ```

 ```{r echo=FALSE}
-Sys.time()
+now
+cut_off
 ```

 ## Humidity