A simmple wrapper around dplyr::pull() to help with
readability of user recipes.
pas_get(pas, name = NULL)PurpleAir Synoptic pas object.
Name of the data column to return.
A single column of data from the incoming pas object.
library(AirSensor2)
# Lane (County) Regional Air Protection Agency
LRAPA_sensor_indices <-
example_pas %>%
pas_filter(stringr::str_detect(name, "^LRAPA")) %>%
pas_get("sensor_index")
print(LRAPA_sensor_indices)
#> [1] "453" "3255" "3408" "3419" "3904" "3911" "137754" "137756"
#> [9] "137766" "137782" "137786" "137784" "10554" "10592" "10594" "10596"
#> [17] "10606" "10610" "10614" "10640" "10642" "10644" "10648" "10664"
#> [25] "146152" "146162" "146498" "146502" "163849" "34195" "165485" "37847"
#> [33] "38593" "38595" "38631" "38681" "38703" "38749" "38771" "56793"
#> [41] "56961" "56971" "57669" "80209" "80331" "80335" "80381" "80397"