1

我正在尝试使用官员制作一个 powerpoint 文件，其中包含在其单元格中带有超链接的表格，但我找不到如何做到这一点的方法。

例如，幻灯片上的 2 列表格中的一行可能在第一列中包含“Ensembl”，第二列会显示“ENSG00000165025”，单击它会打开浏览器，位于“uswest.ensembl.org/Homo_sapiens/Gene/摘要？g=ENSG00000165025'。第二列中的某些值可能只是纯文本。

这有可能实现吗？

4

2 回答 2

2

使用 github 上的新版本，您将能够包含以下演示的超链接：

library(flextable)
dat <- data.frame(
  col = "CRAN website", href = "https://cran.r-project.org",
  stringsAsFactors = FALSE)

ft <- flextable(dat)
ft <- display(
  ft, col_key = "col", pattern = "# {{mylink}}",
  formatters = list(mylink ~ hyperlinked_text(href, col) )
)
ft
于 2018-03-01T00:00:14.070 回答
0

`

dat <- data.frame(
    col = "entrez", 
    href = "https://www.ncbi.nlm.nih.gov/gene?cmd=Retrieve&dopt=full_report&list_uids=6850", 
    stringsAsFactors = FALSE)

ft <- flextable(dat)
ft <- display(
    ft, col_key = "col", pattern = "# {{mylink}}",
    formatters = list(mylink ~ hyperlink_text(href, col) )
)
ft # works fine

doc <- read_pptx() %>% 
    add_slide(layout = 'Title and Content', 'Office Theme') %>% 
    ph_with_flextable(ft) # error

doc_parse_raw 中的错误（x，编码 = 编码，base_url = base_url，as_html = as_html，：EntityRef：期待';' [23]

重复：

dat <- data.frame(
    col = "entrez", href = URLencode("https://www.ncbi.nlm.nih.gov/gene?cmd=Retrieve&dopt=full_report&list_uids=6850", reserved = TRUE),
    stringsAsFactors = FALSE)

ft <- flextable(dat)
ft <- display(
    ft, col_key = "col", pattern = "# {{mylink}}",
    formatters = list(mylink ~ hyperlink_text(href, col) )
)
ft # clicking the link in rstudio fails

doc <- read_pptx() %>% 
    add_slide(layout = 'Title and Content', 'Office Theme') %>% 
    ph_with_flextable(ft) # fine, no error message, but error message when opening pp file
于 2018-03-05T22:45:09.337 回答