Skip to content

Instantly share code, notes, and snippets.

@geneorama
Created March 27, 2018 05:02
Show Gist options
  • Save geneorama/14b947e5dbe18caa620dd65bacdc170f to your computer and use it in GitHub Desktop.
Save geneorama/14b947e5dbe18caa620dd65bacdc170f to your computer and use it in GitHub Desktop.
import Weber mini temps
rm(list=ls())
library(data.table)
txt <- fread("~/Downloads/iGrill Mini-5839 - Probe - 32418, 112903 AM.csv")
setnames(txt, 'Temperature (°F)', 'temperature')
setnames(txt, 'Date & Time', 'timestamp')
txt[ , timestamp := as.POSIXct(strptime(timestamp, "%m/%d/%y, %I:%M:%S %p"))]
txt[temperature == "--", temperature:=NA]
txt
plot(temperature~timestamp, txt, type="l")
abline(h=seq(0,500,10), col="lightgray", lty=3)
abline(h=225, col="gray60")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment