targets::tar_read(df_all_data_formatted) |>
  get_vars(c("clin","lifestyle","ses", "assess.pred"))  |> 
  dplyr::mutate(exclude=ifelse(is.na(pase_0)|is.na(pase_4),"Excluded","Included"))|> 
  dplyr::select(-pase_0,-pase_4)  |>
  dplyr::select(exclude,soc_status_nowork, fam_indk_hl, edu_level_hl)|> 
  gtsummary::tbl_summary(by=exclude) |> 
  gtsummary::add_p() |> 
  fix_labels() |> 
  mask_micro_summary(micro.n = 5)