fix(colformat_md): follow internal change of flextable data structure

atusy · Mar 30, 2024 · aaa23ad · aaa23ad
1 parent 862c502
commit aaa23ad
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/colformat.R b/R/colformat.R
@@ -51,7 +51,12 @@ colformat_md <- function(x,
   }
 
   dataset <- x[[part]]$dataset
-  content <- x[[part]][["content"]][["content"]][["data"]]
+  content <- if (is.null(x[[part]][["content"]][["content"]])) {
+    # flextable >= 0.9.5
+    x[[part]][["content"]][["data"]]
+  } else {
+    x[[part]][["content"]][["content"]][["data"]]
+  }
   nm <- colnames(content)
   col <- tidyselect::eval_select(rlang::expr(c(!!.j)), dataset[nm])