You may want to consider the gt package.
For us to really help, it would be helpful to provide a reproducible example:
FAQ: What's a reproducible example (reprex) and how do I create one?
Also, you can wrap your text in three back-ticks (```) to format it as code. This makes it a lot easier to read:
baro_unweightedpointcoverage <- df_child_level_baro_point_coverage %>%
as_survey_design(ids=grappe_no,) #cluster number
baro_unweightedpointcoverage %>%
group_by(covered) %>%
summarize(proportion=survey_mean(),
total=survey_total())