how to add hyperlink for embedded image in PPT.

[leechaowen]

how to add hyperlink for embedded image in PPT?

my part code like this. success add external img, but fail to add hyperlink.

svg_file <- file.path(R.home(component = "doc"), "html/Rlogo.svg")

my_pres <- read_pptx("myTemplate.pptx") %>%
  add_slide(layout = "EndPage", master = "Custom") %>%
  ph_with(value = external_img(svg_file, 100 / 72, 76 / 72), location = ph_location_label("logo"), use_loc_size = FALSE)
  

my_pres <-ph_hyperlink(x=my_pres,ph_label = "logo",href = "https://cran.r-project.org")