table width to page instead of content

r_app/90_CI_report_with_kpis_simple.Rmd

@@ -969,9 +969,13 @@ field_details_clean <- field_details_table %>%
 
 
 # Display the cleaned field table with flextable
+# Set column widths to fit page (approximately 6.5 inches for 1-inch margins)
+col_widths <- c(1.2, 0.9, 1.0, 1.0, 0.8, 0.9, 0.8, 0.7, 0.6)  # inches for each column
+
 ft <- flextable(field_details_clean) %>%
   set_caption("Detailed Field Performance Summary") %>%
-  autofit()
+  width(width = col_widths) %>%
+  autofit(add_w = 0, add_h = 0)
 
 ft
 ```