Update functions that relied on 'flextable' and convert to 'gt'

.devcontainer/devcontainer.json

@@ -13,7 +13,7 @@
             	"packages": "qpdf"
 		},
 	    	"ghcr.io/rocker-org/devcontainer-features/r-packages:1": {
-			"packages": "usethis,pak,qpdf,cli,flextable,forstringr,fs,naniar,officer,pdftools,prodlim,svDialogs,tidyselect,tinytex",
+			"packages": "usethis,pak,qpdf,cli,gt,forstringr,fs,naniar,officer,pdftools,prodlim,svDialogs,tidyselect,tinytex",
 			"installSystemRequirements": true
 		},
 		// option to run rstudio. you can type rserver into the command line to

DESCRIPTION

@@ -25,12 +25,11 @@ Imports:
     cli,
     data.table,
     dplyr,
-    flextable,
     forstringr,
     fs,
     glue,
+    gt,
     naniar,
-    officer,
     purrr,
     stats,
     stringi,
@@ -42,7 +41,6 @@ Imports:
     utils
 Suggests: 
     ggplot2,
-    gt,
     kableExtra,
     knitr,
     parallel,

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(ID_tbl_length_class)
 export(ID_tbl_width_class)
 export(add_accessibility)
 export(add_alttext)

R/ID_tbl_length_class.R

@@ -0,0 +1,47 @@
+#' Identify table length class
+#'
+#' @inheritParams render_lg_table
+#'
+#' @return The length class of a table: regular or long. The result
+#' will determine whether the table can be rendered on a page
+#' as-is, or if it needs to be split across multiple pages.
+#' @export
+#'
+#' @examples
+#' \dontrun{
+#' ID_tbl_length_class(
+#'   plot_name = "indices.abundance_table.rda",
+#'   tables_dir = here::here()
+#' )
+#' }
+ID_tbl_length_class <- function(
+  tables_dir,
+  plot_name
+) {
+  tables_path <- fs::path(
+    tables_dir,
+    "tables",
+    paste0(plot_name, "_table.rda")
+  )
+
+  if (file.exists(tables_path)) {
+    load(tables_path)
+    table_rda <- rda
+    rm(rda)
+    gt_table <- table_rda$table
+
+    # Get table length in rows
+    table_length <- nrow(gt_table[["_data"]])
+
+    # determine table length class
+    if (table_length <= 38) {
+      length_class <- "regular" # fit on one landscape page (and, by default, portrait)
+    } else {
+      length_class <- "long" # divided across >1 landscape page
+      }
+  } else {
+    cli::cli_abort(message = "Table not found at {tables_path}")
+  }
+
+  length_class
+}

R/ID_tbl_width_class.R

@@ -7,7 +7,7 @@
 #' be resized, rotated, and/or split across multiple pages.
 #'
 #' @return The width class of a table: regular, wide, or extra-wide. The result
-#' will determine whether the table that can be rendered on a portrait page
+#' will determine whether the table can be rendered on a portrait page
 #' as-is, or if it needs to be resized, rotated, and/or split across multiple pages.
 #' @export
 #'
@@ -34,9 +34,14 @@ ID_tbl_width_class <- function(
     load(tables_path)
     table_rda <- rda
     rm(rda)
-    table_width <- flextable::flextable_dim(table_rda$table)[["widths"]] |>
-      as.numeric()
+    gt_table <- table_rda$table
 
+    # Set each col to 1.5"
+    col_inches <- 1.5
+
+    # Calculate total table width in inches
+    table_width <- ncol(gt_table[["_data"]]) * col_inches
+
     # determine table width class
     if (table_width <= portrait_pg_width) {
       width_class <- "regular"

R/add_child.R

@@ -28,6 +28,10 @@ add_child <- function(x,
       "#| warning: false", "\n",
       "a <- knitr::knit_child(", "'", sec_num, "'", ", quiet = TRUE)", "\n",
       "cat(a, sep = '\\n')", "\n",
+      # ifelse checks for the 'tables' label and injects the extra code/comment
+      ifelse(label[i] == "tables", 
+             "# Force LaTeX to render all floating tables before moving to the next section\ncat('\\n\\\\clearpage\\n')\n", 
+             ""),
       "```", "\n"
     )
     child <- paste(child, child_loop, sep = "\n {{< pagebreak >}} \n")

R/asar-package.R

@@ -17,6 +17,6 @@ globvar <- c(
   "row_rescale", "table_list", "read.csv", "All", "x", "Acronym", "Meaning",
   "meaning_lower", "Definition", "n", "Label", "figures_doc_header",
   "X", "len_bins", "area", "match_key", "uncertainty_label",
-  "word_count", "ac_short"
+  "word_count", "ac_short", "column_label"
 )
 if (getRversion() >= "2.15.1") utils::globalVariables(globvar)