kap_data: use variable type_of_animals_simple.

src/plan.R

@@ -107,7 +107,7 @@ plan <- drake_plan(
   ## 165 x 3
   topic_vars = topic_variables_df(
     names(processed_data %>% select_if(~!is.numeric(.))),
-    socio_demo = quos(target_pop, x5_province:type_of_animals_kept),
+    socio_demo = quos(target_pop, x5_province:type_of_animals_kept, type_of_animals_simple),
     farm = quos(`x19_OthAn:Bovine`:x70_ii_17_do_you_record_farm_information),
     knowledge = quos(x74_iii_1_are_you_familiar_with_antibiotics:x97_iii_8_5_chicken_meat_or_in_the_eggs_and_you_can_consume_ab),
     attitude = quos(x99_iv_1_1_protect_from_any_diseases:x121_iv_5_learning_more_about_antibiotics),