btupper / hobotemp

Hobotemp

Hobotemp

This is for managing and understanding your HOBO temperature data

Requirements

• R v4+
• dplyr
• readr
• stringr
• ggplot2
• lubridate

Installation

remotes::install_github("rfrancolini/hobotemp")

Read Example Data

library(hobotemp)
x <- read_hobotemp()
x

## # A tibble: 9,025 x 5
##    Reading DateTime             Temp Intensity Site         
##      <int> <dttm>              <dbl>     <dbl> <chr>        
##  1      85 2021-05-15 00:04:32  7.68         0 Little Drisko
##  2      86 2021-05-15 00:19:32  7.68         0 Little Drisko
##  3      87 2021-05-15 00:34:32  7.78         0 Little Drisko
##  4      88 2021-05-15 00:49:32  7.78         0 Little Drisko
##  5      89 2021-05-15 01:04:32  7.78         2 Little Drisko
##  6      90 2021-05-15 01:19:32  7.68         9 Little Drisko
##  7      91 2021-05-15 01:34:32  7.68        20 Little Drisko
##  8      92 2021-05-15 01:49:32  7.78        37 Little Drisko
##  9      93 2021-05-15 02:04:32  7.78        69 Little Drisko
## 10      94 2021-05-15 02:19:32  7.78        57 Little Drisko
## # ... with 9,015 more rows

Draw Example Plot

tempplot_x <- draw_plot(x)
tempplot_x

Read Example Data With User Defined Start/Stop Dates

ss <- as.POSIXct(c("2021-05-20", "2021-06-01"), tz = "UTC")
xud <- read_hobotemp(clipped = "user", startstop = ss)
xud

## # A tibble: 1,152 x 5
##    Reading DateTime             Temp Intensity Site         
##      <int> <dttm>              <dbl>     <dbl> <chr>        
##  1     565 2021-05-20 00:04:32  9.08         0 Little Drisko
##  2     566 2021-05-20 00:19:32  9.08         0 Little Drisko
##  3     567 2021-05-20 00:34:32  9.08         0 Little Drisko
##  4     568 2021-05-20 00:49:32  9.18         0 Little Drisko
##  5     569 2021-05-20 01:04:32  9.18         0 Little Drisko
##  6     570 2021-05-20 01:19:32  8.88         0 Little Drisko
##  7     571 2021-05-20 01:34:32  8.78         0 Little Drisko
##  8     572 2021-05-20 01:49:32  8.68         0 Little Drisko
##  9     573 2021-05-20 02:04:32  8.58         0 Little Drisko
## 10     574 2021-05-20 02:19:32  8.58         0 Little Drisko
## # ... with 1,142 more rows

Draw Example Plot User Defined Start/Stop Dates

tempplot_xud <- draw_plot(xud)
tempplot_xud

Read Example Data Without Clipping Data

xna <- read_hobotemp(clipped = "none")
xna

## # A tibble: 9,169 x 5
##    Reading DateTime             Temp Intensity Site         
##      <int> <dttm>              <dbl>     <dbl> <chr>        
##  1       1 2021-05-14 03:19:32  20.1         1 Little Drisko
##  2       2 2021-05-14 03:19:59  NA          NA Little Drisko
##  3       3 2021-05-14 03:34:32  20.5        36 Little Drisko
##  4       4 2021-05-14 03:49:32  20.5        37 Little Drisko
##  5       5 2021-05-14 04:04:32  15.5        26 Little Drisko
##  6       6 2021-05-14 04:19:32  14.0        25 Little Drisko
##  7       7 2021-05-14 04:34:32  14.7        38 Little Drisko
##  8       8 2021-05-14 04:49:32  14.7       123 Little Drisko
##  9       9 2021-05-14 05:04:32  13.9        60 Little Drisko
## 10      10 2021-05-14 05:19:32  15.3        35 Little Drisko
## # ... with 9,159 more rows

Draw Example Plot Without Clipping Data

tempplot_na <- draw_plot(xna)
tempplot_na