Flextable 表格链接未链接到我的表格

Question

我使用 Rmarkdown（输出：word_document）在 docx 中生成了表格，带有标题和表格链接。出于某种原因，单击链接会将我带到我的 word 文件的顶部，而不是相关的表格。 这是一些示例代码：#第一次遇到与 rmarkdown 相关的问题，请与我联系

library(officer)
library(flextable)
library(knitr)
library(magrittr)

# set chunks defaults
knitr::opts_chunk$set(echo=FALSE, message=FALSE, warning=FALSE)

#create example df
df1 <- data.frame(col1=c("a","b","c"),
        col2=c("1","2","3"))
df2 <- data.frame(col1=c("d","e","f"),
                  col2=c("4","5","6"))

（链接到表 2）

#create flextable 1
ft1 <- flextable(df1)
ft1 <- set_caption(ft1, "Caption 1.",
                   style = "Table Caption", 
                   autonum = run_autonum(seq_id = "tab",bkm="tab1"))

ft1

（链接到表 1）我按此顺序设置这些链接，希望能让问题更清楚。

#links created using format [(Link)](#tab:tab2)

#second flextable
ft2 <- flextable(df2)
ft2 <- set_caption(ft2, "Caption 2.",
                   style = "Table Caption",
                   autonum = run_autonum(seq_id = "tab",bkm="tab2"))

ft2

如果使用 flextable 可以做到这一点，我可能在某个地方犯了一个小错误，但无法发现它。 到目前为止，这是我发现的唯一一个使用 Rmarkdown 呈现 docx 表输出的函数

请帮忙。

Answer 1

我为你做了这个例子：

---
title: "Untitled"
author: "Your Name"
date: "December 16, 2021"
output:
  bookdown::word_document2: default
---

```{r setup}
library(flextable)

#create example df
df1 <- data.frame(col1=c("a","b","c"),
        col2=c("1","2","3"))
df2 <- data.frame(col1=c("d","e","f"),
                  col2=c("4","5","6"))
```     

```{r Table1}
ft1 <- flextable(df1)
set_caption(ft1, "I love R language")
```    
\newpage

```{r Table2}
ft2 <- flextable(df2)
set_caption(ft2, "I hope, it loves me too")
```       
\newpage

[(Click, here is the first table)](#tab:Table1)
   
[(Here is the second)](#tab:Table2)

祝你在学习R的过程中取得好成绩；）

---

补充：

```{r Table3, tab.cap = "An another table"}
flextable(df2)
```

\newpage

Ok, here is a third table [(Here is the third)](#tab:Table3).

Answer 2

对于其他可能遇到此问题的人。

使用上面的 @manro 示例，我通过编辑 YAML 使其工作。

title: "Untitled"
author: "Your Name"
date: "December 16, 2021"
output:
  officedown::rdocx_document:
    reference_docx: template.docx

library(flextable)
library(officedown)
library(officer)

#create example df
df1 <- data.frame(col1=c("a","b","c"),
        col2=c("1","2","3"))
df2 <- data.frame(col1=c("d","e","f"),
                  col2=c("4","5","6"))

ft1 <- flextable(df1)
set_caption(ft1, "I love R language")

\新页面

ft2 <- flextable(df2)
set_caption(ft2, "I hope, it loves me too")

\新页面

并且通过从下面的链接示例中删除 [(Link)](#tab:tab2) 中的“tab:”。

[(Click, here is the first table)](#tab:Table1)

[(Here is the second)](#tab:Table2)

离开我。

[(Click, here is the first table)](#Table1)

[(Here is the second)](#Table2)