library(tidyverse)
library(here)

canary <- read_rds(here("data", "derived_data", "canary_clean.rds"))

TODO:

LS0tCnRpdGxlOiAiTW9kZWxzIgphdXRob3I6ICJTdXBhcm5hIENoYXVkaHJ5IGFuZCBBbmRyZXcgSGVpc3MiCmRhdGU6ICJMYXN0IHJ1bjogYHIgZm9ybWF0KFN5cy50aW1lKCksICclRicpYCIKLS0tCgpgYGB7ciBzZXR1cCwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoaGVyZSkKCmNhbmFyeSA8LSByZWFkX3JkcyhoZXJlKCJkYXRhIiwgImRlcml2ZWRfZGF0YSIsICJjYW5hcnlfY2xlYW4ucmRzIikpCmBgYAoKVE9ETzoKCi0gQ2F1c2FsIG1vZGVsCi0gUnVuIGFjdHVhbCBtb2RlbHMKLSBTaG93IG1hcmdpbmFsIGVmZmVjdHMgLSBjaGFuZ2UgaW4gcHJlZGljdGVkIHByb2JhYmlsaXR5IG9mIFBUUyBsZXZlbHMgYXMgQ1MgcmVzdHJpY3Rpb24gY2hhbmdlcwotIFVzZSBtYXRjaGluZyAoaHR0cHM6Ly9jcmFuLnItcHJvamVjdC5vcmcvd2ViL3BhY2thZ2VzL1BhbmVsTWF0Y2gvdmlnbmV0dGVzL3VzaW5nX3BhbmVsbWF0Y2guaHRtbCksIElQVyAoQmxhY2t3ZWxsR2x5bm46MjAxOCkgdG8gaXNvbGF0ZSBlZmZlY3QKLSBDYXJlZnVsIHNlbGVjdGlvbiBvZiBjb25mb3VuZGVycywgZm9sbG93aW5nIEJlbGxlbWFyZU1hc2FraVBlcGluc2t5OjIwMTcgYW5kIFNhbWlpOjIwMTYKLSBVc2UgTVNNcyBvciB3aGF0ZXZlciBCbGFja3dlbGxHbHlubjoyMDE4IHN1Z2dlc3Q/Cg==