Add quality checks for public response data

data-raw/get_data.R

@@ -538,8 +538,16 @@ public_response <-
     imdb_ratings %>%
       rename(imdb_score = imdb_rating, imdb_counts = imdb_votes),
     by = "film"
+  ) %>%
+  mutate(
+    across(starts_with("rotten"), ~ as.numeric(.x)),
+    across(starts_with("metacritic"), ~ as.numeric(.x)),
+    across(starts_with("imdb"), ~ as.numeric(.x))
   )
 
+# Manual quality checks, scores should be 0-100 or 0-10 and counts >0
+summary(public_response)
+
 
 # Clean academy data ------------------------------------------------------
 
@@ -570,7 +578,7 @@ academy <-
     TRUE ~ award_type
   ))
 
-# Quality checks on if there are any typos or anomalous values
+# Manual quality checks on if there are any typos or anomalous values
 academy %>%
   group_by(award_type) %>%
   count(award_type) %>%
@@ -581,6 +589,7 @@ academy %>%
   count(status) %>%
   arrange(n)
 
+
 # Convert Vox analysis matrix ---------------------------------------------
 
 # Source: