From e3b29d8d43488dc040896d6dd7cd22bab63a7f02 Mon Sep 17 00:00:00 2001 From: Cole Brokamp Date: Fri, 5 Jul 2024 13:52:25 -0400 Subject: [PATCH] format last seen in sensor data --- R/get_sensor_data.R | 1 + README.md | 10 +++++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/R/get_sensor_data.R b/R/get_sensor_data.R index 495362c..6f66a05 100644 --- a/R/get_sensor_data.R +++ b/R/get_sensor_data.R @@ -22,5 +22,6 @@ get_sensor_data <- function(sensor_index, fields, purple_air_api_key = Sys.geten fields = fields ) resp$sensor$sensor_index <- NULL + if ("last_seen" %in% names(resp$sensor)) resp$sensor$last_seen <- as.POSIXct.numeric(resp$sensor$last_seen) return(resp$sensor) } diff --git a/README.md b/README.md index fc92315..15bd295 100644 --- a/README.md +++ b/README.md @@ -35,16 +35,16 @@ Get the latest data from a single PurpleAir sensor, defined by its ``` r get_sensor_data(sensor_index = 175413, fields = c("name", "last_seen", "pm2.5_cf_1", "pm2.5_atm")) #> $last_seen -#> [1] 1720201543 +#> [1] "2024-07-05 13:51:43 EDT" #> #> $name #> [1] "JN-Clifton,OH" #> #> $pm2.5_atm -#> [1] 4.7 +#> [1] 4.1 #> #> $pm2.5_cf_1 -#> [1] 4.7 +#> [1] 4.1 ``` Get the latest data from many PurpleAir sensors, defined by their sensor @@ -55,8 +55,8 @@ get_sensors_data(x = as.integer(c(175257, 175413)), fields = c("name", "last_see #> # A tibble: 2 × 5 #> sensor_index last_seen name pm2.5_atm pm2.5_cf_1 #> -#> 1 175257 2024-07-05 13:46:00 Lillard 3.6 3.6 -#> 2 175413 2024-07-05 13:45:43 JN-Clifton,OH 4.7 4.7 +#> 1 175257 2024-07-05 13:52:00 Lillard 3.8 3.8 +#> 2 175413 2024-07-05 13:51:43 JN-Clifton,OH 4.1 4.1 ``` a geographic bounding box,