Добавяне на ред в r с помощта на dplyr

r dplyr добавите крайната ред

x %>%
  bind_rows(summarise(.,
                      across(where(is.numeric), sum),
                      across(where(is.character), ~"Total")))