R/pptx.R

In ueno-tr/flysleep: flysleep: Sleep analysis using DAM data.

##SDのグラフを作成
##3 day data (1:baseline, 2:SD, 3:rebound)
##DAMsleep1で出力されるhrsを入力にする

pptx <- function() {
  library(officer)
  library(dplyr)

  files <- list.files(pattern = "png$") #ディレクトリ内のpngファイル名（"png$"で絞り込み）をfilesに代入

  #パワポのファイルを作成する
  pptx_file <- "sleep_result.pptx"
  pptx_file_path <- paste(pptx_file, sep = "/")

  #ファイル内にかきこみ始める
  my_pres <- read_pptx() %>%
  #タイトルページ
  add_slide(layout = "Title Slide", master = "Office Theme") %>%
  ph_with(value = "タイトル", location = ph_location_type(type = "ctrTitle")) %>%
  ph_with(value = "file/name", location = ph_location_type(type = "subTitle")) %>%

  #ファイルを出力
  print(target = pptx_file_path) %>%
  invisible()

  for (i in 1:length(files)) {
  file.name <- files[i]

  read_pptx("sleep_result.pptx") %>%
  add_slide(layout = "Title and Content", master = "Office Theme") %>%
  ph_with(value = file.name, location = ph_location_type(type = "title")) %>%
  ph_with(external_img(file.name),
   location = ph_location_type(type = "body")) %>%

  print(target = pptx_file_path) %>%
  invisible()
}
}