Преобразование фрейма данных в список параметров для rmarkdown - PullRequest
Новая
       46

Преобразование фрейма данных в список параметров для rmarkdown

0 голосов
/ 24 августа 2018

Я пытаюсь преобразовать фрейм данных в фрейм данных со списком параметров для отправки в параметризованный отчет по уценке.Я следую R Markdown: полное руководство в качестве моего руководства. 

library(tidyr)
library(dplyr)
library(purrr)


master_list <- tibble(
  client   = rep(1:2, each = 3),
  product  = rep(LETTERS[1:3], 2),
  price    = abs(rnorm(6))*10,
  quantity = round(runif(6)*100)      
)

report_list <- master_list %>%
  nest(-client) %>%
  mutate(filename = paste0("Report for ", client, ".pdf"))

# paramaters for report
params <- report_list %>%
  rowwise() %>%
  do(params = as.list(.))

reports <- bind_cols(report_list, params)

# code to send to rmarkdown::render
reports %>% 
  select(output_file = filename, params) %>% 
   purrr::pwalk(rmarkdown::render, input = "./Rmd/subscriber-report.Rmd")

Редактировать: Это работает, но я чувствую, что процесс создания фрейма данных отчетов неуклюжий (плюсМне не очень нравится, что params имеет дополнительный уровень списка, который можно удалить в коде rmd).Любые идеи о том, как упростить построение фрейма данных отчетов?

...