library(scales)
library(tidyverse)

df <- read_csv("./Weekly School COVID Count - Sheet2.csv")

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoc2NhbGVzKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKCmRmIDwtIHJlYWRfY3N2KCIuL1dlZWtseSBTY2hvb2wgQ09WSUQgQ291bnQgLSBTaGVldDIuY3N2IikKYGBgCgoKYGBge3J9CmRmICU+JSAKICBmaWx0ZXIoCiAgICAjIENBVEVHT1JZICVpbiUgYygnUHVibGljIEstMTIgc3RhZmYnLCAnUHVibGljIEstMTIgc3R1ZGVudHMnLCAnUHJpdmF0ZSBLLTEyIHN0YWZmJywgJ1ByaXZhdGUgSy0xMiBzdHVkZW50cycpCiAgKSAlPiUgCiAgbXV0YXRlKAogICAgREFURSA9IGFzLkRhdGUocGFzdGUoREFURSwgJy8yMDIwJywgc2VwPScnKSwgZm9ybWF0PSclbS8lZC8leScpCiAgKSAlPiUgCiAgZ2dwbG90KAogICAgYWVzKAogICAgICB4PURBVEUsCiAgICAgIHk9VE9UQUwsCiAgICAgIGZpbGw9Q0FURUdPUlkKICAgICkKICApICsKICBnZW9tX2Jhcihwb3NpdGlvbj0iZG9kZ2UiLCBzdGF0PSJpZGVudGl0eSIpICsKICBmYWNldF9ncmlkKH5DQVRFR09SWSkKYGBgCgoKCg==