etl_extract.etl_macleish | R Documentation |
Retrieve data from the Macleish Field Station weather monitors
## S3 method for class 'etl_macleish' etl_extract(obj, ...) ## S3 method for class 'etl_macleish' etl_transform(obj, ...) etl_transform_help(obj, ...)
obj |
an |
... |
arguments passed to methods |
macleish <- etl("macleish") str(macleish) ## Not run: macleish %>% etl_extract() %>% etl_transform() %>% etl_load() whately <- macleish %>% tbl("whately") orchard <- macleish %>% tbl("orchard") whately %>% summarize(N = n(), avg_temp = mean(temperature)) orchard %>% summarize(N = n(), avg_temp = mean(temperature)) # check data types whately %>% glimpse() # if using SQLite, datetimes will get converted to integers whately <- whately %>% mutate(when_datetime = datetime(when, 'unixepoch')) whately %>% glimpse() # show the most recent data -- should be within the past hour whately %>% collect() %>% tail() # show that no time-shifting is happening if (require(ggplot2)) { macleish %>% tbl("whately") %>% collect() %>% mutate(when = lubridate::ymd_hms(when)) %>% filter(lubridate::year(when) == 2012 & month(when) == 12 & day(when) == 20) %>% ggplot(aes(x = when, y = temperature)) + geom_line() } ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.