Início / coding / Perguntas / 79597170
Accepted
js4032
Asked: 2025-04-29 03:28:53 +0800 CST

Usando officer em R para criar um hiperlink para um título em documentos do Word

  • 772

Gostaria de gerar documentos do Word com "oficial" que contenham links para outros locais no mesmo documento, por exemplo, se houver uma figura que seja mencionada em outro lugar no texto. Aqui está um exemplo simples do que eu esperava:

library(officer)
library(dplyr)

doc <- read_docx() %>%
  body_add_par('1. Introduction', style = 'heading 1') %>%
  # hyperlink_ftext() %>% # I want to link this to Figure 1
  body_add_par('Figure 1', style = 'heading 2')

print(doc, target = 'test.docx')

Existe algo que eu possa passar para o hrefargumento hyperlink_ftextpara fazer isso? Se não, existe alguma outra maneira de fazer isso?

Observação: Parece que esta postagem abordava o mesmo assunto, mas nunca recebeu nenhuma resposta. Também não vi nenhum tópico relevante na página do pacote no GitHub. Há ph_slidelinklinks internos no PowerPoint, mas todos os exemplos que encontrei para o Word eram de URLs.

1 respostas

  1. Best Answer

    Em geral, hyperlink_ftextseria a melhor opção. Mas, depois de analisar a documentação, o código-fonte e alguns experimentos, acho que, no momento, apenas links externos são suportados.

    No entanto, com algum conhecimento de OOXML e seus componentes internos, officernão é difícil implementar links internos. Abaixo, crio uma body_add_par_hyperlinkfunção que é basicamente um copiar e colar, body_add_parmas com um argumento adicional anchor=para adicionar um link interno.

    Observação: além disso, precisamos adicionar um marcador como destino para o link interno.

    library(officer)

body_add_par_hyperlink <- function(x,
                                   value,
                                   anchor,
                                   style = NULL,
                                   pos = "after") {
  if (is.null(style)) {
    style <- x$default_styles$paragraph
  }

  style_id <- officer:::get_style_id(data = x$styles, style = style, type = "paragraph")

  xml_elt <- paste0(
    officer:::wp_ns_yes,
    "<w:pPr><w:pStyle w:val=\"", style_id, "\"/></w:pPr>",
    "<w:hyperlink w:anchor=\"", anchor, "\">",
    "<w:r><w:t xml:space=\"preserve\">",
    officer:::htmlEscapeCopy(value),
    "</w:t></w:r></w:hyperlink></w:p>"
  )
  body_add_xml(x = x, str = xml_elt, pos = pos)
}

doc <- read_docx() |>
  body_add_par_hyperlink(
    "Introduction",
    style = "heading 1", 
    anchor = "figure1"
  ) |>
  body_add_par("Figure 1", style = "heading 2") |>
  body_bookmark("figure1")

print(doc, target = "test.docx")
    • 3

relate perguntas