Esta duda se puede tratar de diversas maneras, pero en este caso te enseñamos la que en nuestra opinión es la solución más completa.
Solución:
He escrito una función para ajustar la tabla a la página que funciona bien por ahora, aunque todavía estoy un poco sorprendido de que no haya una función integrada para hacer esto que (por ejemplo) sepa el ancho de la página en sí, así que si alguien sabe alguno todavía tiene ganas de escuchar.
FitFlextableToPage <- function(ft, pgwidth = 6)
ft_out <- ft %>% autofit()
ft_out <- width(ft_out, width = dim(ft_out)$widths*pgwidth /(flextable_dim(ft_out)$widths))
return(ft_out)
FYI: me encontré con este mismo problema hoy y usé su código (gracias). Pero todavía me molestaba porque no podía hacerlo bien. Noté en el sitio web del paquete Officedown (mismo autor; https://github.com/davidgohel/officedown) que usaban set_table_properties(layout = "autofit") así que probé eso. ¡Por alguna razón, funcionó como se esperaba al hacer eso! yo también estaba usando officedown con la configuración predeterminada, por lo que tal vez los dos funcionaron bien juntos.
Tuve un problema similar al usar el autofit() función. Cuando agrego la función fit_to_width() hasta el final de la tubería, resuelve el problema.
Usando parte de su ejemplo de arriba, la siguiente línea de código ajustaría automáticamente las columnas, luego cambiaría el tamaño para ajustarse al ancho máximo de la tabla en pulgadas dado como segundo argumento (aquí voy por márgenes de documento de 1/2 pulgada):
mytable %>% autofit() %>% fit_to_width(7.5)
Una advertencia de esto es que para algunas de mis tablas, agregar el fit_to_width() La función ralentizó considerablemente el proceso de renderizado. Para esas tablas, usé la sugerencia de @bumbledore set_table_properties(layout = "autofit") y funcionó muy bien (y para que conste, también estoy usando officedown con la configuración predeterminada).
Recuerda dar visibilidad a este post si si solucionó tu problema.