diff --git a/NAMESPACE b/NAMESPACE index 53d9203..eeadaf3 100644 --- a/NAMESPACE +++ b/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) diff --git a/R/package.R b/R/package.R index 7f8c49f..b1e3a10 100644 --- a/R/package.R +++ b/R/package.R @@ -5,6 +5,8 @@ #' @importFrom magrittr %>% #' @import methods #' @import rtables +#' @import officer +#' @import flextable NULL diff --git a/R/tt_to_paginate_office.R b/R/tt_to_paginate_office.R new file mode 100644 index 0000000..d7116b2 --- /dev/null +++ b/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 +}