update

NAMESPACE

@@ -12,7 +12,9 @@ export(theme_docx_default)
 export(theme_html_default)
 export(tt_to_flextable)
 export(word_mm_to_pt)
+import(flextable)
 import(methods)
+import(officer)
 import(rtables)
 importFrom(formatters,export_as_pdf)
 importFrom(formatters,export_as_txt)

R/package.R

@@ -5,6 +5,8 @@
 #' @importFrom magrittr %>%
 #' @import methods
 #' @import rtables
+#' @import officer
+#' @import flextable
 NULL
 
 

R/tt_to_paginate_office.R

@@ -0,0 +1,17 @@
+pos_to_path <- function(pos) {
+  spls <- pos_splits(pos)
+  vals <- pos_splvals(pos)
+
+  path <- character()
+  for (i in seq_along(spls)) {
+    nm <- obj_name(spls[[i]])
+    val_i <- value_names(vals[[i]])
+    path <- c(
+      path,
+      obj_name(spls[[i]]),
+      ## rawvalues(vals[[i]]))
+      if (!is.na(val_i)) val_i
+    )
+  }
+  path
+}