Skip to content

Instantly share code, notes, and snippets.

@nacnudus
Created April 19, 2018 10:33
Show Gist options
  • Save nacnudus/5ad7e535409a5f6115b5bf055ccba110 to your computer and use it in GitHub Desktop.
Save nacnudus/5ad7e535409a5f6115b5bf055ccba110 to your computer and use it in GitHub Desktop.
When each register was 'ready to use'
# To install dependencies
# install.packages(c("devtools", "tidyverse"))
# install_github("openregister/RegistersClientR")
library(tidyverse)
library(RegistersClientR)
register <- rr_register("register")
register %>%
pluck("data") %>%
arrange(register, timestamp) %>%
group_by(register) %>%
slice(1) %>%
ungroup() %>%
arrange(desc(timestamp)) %>%
select(timestamp, register) %>%
print(n = Inf)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment