如何用R在officedown powerpoint中编写超链接表？

Question

我可以使用gt表打印数据，并为不同的单元格创建超链接，如下图所示，编写HTML文件：

library(dplyr)
library(gt)
raw_dat <- mtcars[1:15, ] %>% rownames_to_column(var = "id") %>% select(id, mpg)
df <- tibble(
  name = raw_dat$id,
  link =  'https://www.cars.com//')

df %>%
  mutate(link = sprintf('<p><a href = "%s">%s</a>', link, raw_dat$mpg),
         link = map(link, gt::html)) %>%
  gt

我想打印相同的输出到powerpoint幻灯片并保留链接。我知道我不能在类"c('gt_tbl'，‘list’)的对象中使用'ph_with‘。所以我想知道我还能做些什么来打印带有powerpoint超链接的表格。

NEW <- read_pptx("Presentation1.pptx") %>%
  add_slide(., layout = "Blank", master = "Office Theme") %>%
    ph_with(raw_dat, 
            location = ph_location(left = 0, top = 0, width = 13.33, height = 7.5))

Answer 1

这是一个可弯曲的解决方案，得到了军官的支持。

library(tibble)
library(dplyr)
library(flextable)
library(officer)

raw_dat <- mtcars[1:15, ] %>% rownames_to_column(var = "id") %>% select(id, mpg)
df <- tibble(name = raw_dat$id, link =  'https://www.cars.com//')

ft <- flextable(df) %>% 
  mk_par(j = "link", value = as_paragraph(hyperlink_text(x = name, url = link))) %>% 
  autofit()

read_pptx() %>%
  add_slide() %>%
  ph_with(ft, location = ph_location_type()) %>% 
  print(target = "toto.pptx")

​

​

PS:我不确定我是否回答了这个问题，因为它产生于官员，而不是办公室，但你的例子不是一个R标记的例子。我以为你想利用警官。