diff --git a/R/derive_vars.R b/R/derive_vars.R
index 4511a01..e6697f8 100644
--- a/R/derive_vars.R
+++ b/R/derive_vars.R
@@ -11,7 +11,7 @@
 derive_vars <- function(data) {
   data <- data %>%
     derive_language_status() %>%
-    derive_rap_score()
+    derive_rap_score() %>%
     derive_rap_champ_status()
 
   return(data)