R офицер пакет-выберите слайд по названию - PullRequest
Новая
       7

R офицер пакет-выберите слайд по названию

0 голосов
/ 07 ноября 2018

Я хотел бы выбрать таблицу из презентации PowerPoint, а затем зациклить ее, чтобы извлекать данные из таблицы в презентации PowerPoint каждую неделю.

Тем не менее, слайд, который содержит таблицу интереса, слегка смещается в течение года. Таким образом, вместо выбора таблицы с использованием номера / идентификатора слайда, я хотел бы выбрать таблицу с использованием заголовка слайда, так как она будет соответствовать интересующей таблице, даже если идентификатор слайда изменится.

Как выбрать слайд, используя заголовок с надписью «эпиднадзор за корью» и «2018»?

1 Ответ

0 голосов
/ 07 ноября 2018

Попробуйте что-то вроде: 

library(officer)
library(tidyverse)

doc <- read_pptx("your-spiffy-slides.pptx")

pb <- progress_estimated(length(doc))
map_df(seq_along(doc), ~{
  pb$tick()$print()
  slide_summary(on_slide(doc, .x)) %>% 
    mutate(slide_no = .x)
}) -> slides_df

slides_df будет - среди других элементов - содержать номер слайда (slide_no) и столбец text. Вы можете найти целевой текст в столбце text, а затем связать с ним номер слайда.

Некоторые колоды YUGE, поэтому индикатор выполнения (это не является обязательным требованием, но может помочь скоротать время, если у вас есть колоды YUGE).

...