internals: remove to_wml.block_pour_docx

davidgohel · Jul 15, 2024 · 5289108 · 5289108
1 parent d25e542
commit 5289108
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 10 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: officedown
 Type: Package
 Title: Enhanced 'R Markdown' Format for 'Word' and 'PowerPoint'
-Version: 0.3.2.001
+Version: 0.3.2.002
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre", "cph"),
     email = "david.gohel@ardata.fr"),
@@ -38,7 +38,7 @@ Suggests:
     doconv (>= 0.3.0)
 URL: https://ardata-fr.github.io/officeverse/, https://davidgohel.github.io/officedown/
 BugReports: https://github.com/davidgohel/officedown/discussions
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Roxygen: list(markdown = TRUE)
 SystemRequirements: pandoc (>= 2.0) - http://pandoc.org
 VignetteBuilder: knitr

diff --git a/NAMESPACE b/NAMESPACE
@@ -18,6 +18,7 @@ importFrom(knitr,opts_knit)
 importFrom(memoise,forget)
 importFrom(memoise,memoise)
 importFrom(officer,block_caption)
+importFrom(officer,block_pour_docx)
 importFrom(officer,block_section)
 importFrom(officer,block_table)
 importFrom(officer,change_styles)

diff --git a/R/onAttach.R b/R/onAttach.R
@@ -1,7 +1,6 @@
 .onAttach <- function(libname, pkgname){
   register_s3_method("knitr", "knit_print", "data.frame")
   register_s3_method("knitr", "knit_print", "dml")
-  register_s3_method("officer", "to_wml", "block_pour_docx")
 }
 
 register_s3_method <- function(pkg, generic, class, fun = NULL) {

diff --git a/R/rdocx_document.R b/R/rdocx_document.R
@@ -168,7 +168,7 @@ get_reference_rdocx <- memoise(get_docx_uncached)
 #' @examples
 #' # rdocx_document basic example -----
 #' @example examples/rdocx_document.R
-#' @importFrom officer change_styles
+#' @importFrom officer change_styles block_pour_docx
 #' @importFrom utils modifyList
 rdocx_document <- function(base_format = "rmarkdown::word_document",
                            tables = list(), plots = list(), lists = list(),

diff --git a/R/rdocx_officer_bindings.R b/R/rdocx_officer_bindings.R
@@ -51,9 +51,3 @@ block_section_columns <- function(widths = c(2.5,2.5), space = .25, sep = FALSE)
     type = "continuous"))
 }
 
-
-# misc ----
-to_wml.block_pour_docx <- function(x, add_ns = FALSE, base_document = NULL, ...) {
-  paste0("<w:altChunk r:id=\"", x$file, "\"/>")
-}
-