data-raw/q_scores.R

In davidkane9/gov.1005.data: Create and Distribute Data for GOV 1005

# Script which cleans up the Q Scores json file. This is purposely simplied data
# since I use it on the second day of classes.

library(tidyverse)
library(jsonlite)
library(janitor)
library(usethis)

x <- read_json("q_scores.json", simplifyDataFrame = TRUE, flatten = TRUE) %>%
  as_tibble() %>%
  clean_names() %>%
  select(-meeting_days, -meeting_times, -enrolled, -grading_basis) %>%
  rename(overall = evaluations_overall,
         workload = evaluations_workload,
         number = evaluations_amount) %>%
  mutate(overall = parse_number(overall, na = "None"),
         workload = parse_number(workload, na = "None"),
         number = parse_number(number, na = "None")) %>%

  # Adding more clean up in Jan 2020. Want a much cleaner version of the data so
  # that it is easier for students to work with in the first few weeks.

  filter(course_component == "Lecture") %>%
  filter(! course_level %in% c("Graduate Course", "N/A")) %>%
  select(-divisional_distribution, -course_level, -course_component, -exam) %>%
  drop_na() %>%
  distinct() %>%
  distinct(name, .keep_all= TRUE) %>%
  filter(number > 25)


# Code for saving object

# write_csv(x, path = "qscores.csv")
# qscores <- x
# usethis::use_data(qscores, overwrite = TRUE)