disease hierarchy function update

R/iidda/R/data_prep_tools.R

@@ -727,7 +727,8 @@ flatten_disease_hierarchy = function(data
     # if there is only the basal disease (no sub-diseases), differentiate by adding '-only'
     # mutate(disease = ifelse(disease == basal_disease, sprintf("%s-only", disease), disease))
     |> mutate(nesting_disease = basal_disease)
-    |> select(-basal_disease)
+    |> select(-basal_disease, -x, -y, -z)
+
   )
 }