library(tidyverse)
ct_school_attendance <- read.csv("https://data.ct.gov/resource/t4hx-jd4c.csv?$limit=3000") %>%
filter(studentgroup == "All Students" & reportingdistrictname != "Connecticut")
ct_school_learning_model <-
read.csv("https://data.ct.gov/resource/5q7h-u2ac.csv?$where=update_date=%272020-09-17%27") |>
rename(fully_remote = percent_students_fully_remote)