Сбой рендеринга нескольких параметризованных файлов Rmarkdown с помощью render_function () - PullRequest
0 голосов
/ 03 марта 2019

Я написал параметризованный отчет, который создаст индивидуальную отчетность для ~ 120 центров на двух разных языках.Отчеты создаются с помощью кнопки вязания (которая работает отлично).

Вдохновленный твитом @ djnavarro (https://twitter.com/djnavarro/status/1101623527872970754) Я попытался написать функцию для отображения нескольких параметризованных отчетов в одной команде, однако функция завершается с ошибкой, как показано в минимальном представлении ниже:

.Rmd-файл с именем summary_cyl.Rmd

---
output: pdf_document
params:
   cyl: 4
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
```

## R Markdown - report for cyl == `r params$cyl`

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r cars}
mtcars %>% 
  filter(cyl == params$cyl) %>% 
  count
```

.R-файл с тибблом, функцией и вызовом:

library(tidyverse)
# setting up the tibble with all the param values
param_infos <- tibble(cyl = c(4, 6, 8))

Создание функции по вдохновениюhttps://bookdown.org/yihui/rmarkdown/params-knit.html#knit-with-custom-parameters:

render_report <- function(file = "summary_cyl.Rmd", cyl) {
  rmarkdown::render(file, params = list(
    cyl = cyl
  ), envir = new.env(),
  output_file = paste0("summary-", cyl, "-", ".pdf")
  )
}

Один только вызов функции работает нормально, он создает PDF-файл с нужными результатами в нужной папке:

render_report(cyl = 6)

Попытка использовать @Подход djnavarro терпит неудачу:

param_infos %>% 
  transpose() %>% 
  walk(render_report)

Сообщение об ошибке: Error in path.expand(path) : invalid 'path' argument

Я не знаю, где найти ошибку: я никогда раньше не использовал purrr::walk() и неполностью уверен в том, что render_function() делает в фоновом режиме. Оба - .Rmd-файл и .R-файл - находятся в одной папке. Кто-нибудь есть идеи, в чем может быть проблема?

my session.info:

R version 3.5.2 (2018-12-20)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS Mojave 10.14.3

Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] forcats_0.4.0      stringr_1.4.0      dplyr_0.8.0.1      purrr_0.3.0        readr_1.3.1       
[6] tidyr_0.8.2        tibble_2.0.99.9000 ggplot2_3.1.0      tidyverse_1.2.1   

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.0.1      cellranger_1.1.0  pillar_1.3.1.9000 compiler_3.5.2    plyr_1.8.4       
 [6] tools_3.5.2       digest_0.6.18     packrat_0.5.0     lubridate_1.7.4   jsonlite_1.6     
[11] evaluate_0.13     nlme_3.1-137      gtable_0.2.0      lattice_0.20-38   pkgconfig_2.0.2  
[16] rlang_0.3.1       cli_1.0.1         rstudioapi_0.9.0  yaml_2.2.0        haven_2.1.0      
[21] xfun_0.5          withr_2.1.2       xml2_1.2.0        httr_1.4.0        knitr_1.21       
[26] hms_0.4.2         generics_0.0.2    grid_3.5.2        tidyselect_0.2.5  glue_1.3.0.9000  
[31] R6_2.4.0          fansi_0.4.0       readxl_1.3.0      rmarkdown_1.11    modelr_0.1.4     
[36] magrittr_1.5      backports_1.1.3   scales_1.0.0      htmltools_0.3.6   rvest_0.3.2      
[41] assertthat_0.2.0  colorspace_1.4-0  tinytex_0.10      utf8_1.1.4        stringi_1.3.1    
[46] lazyeval_0.2.1    munsell_0.5.0     broom_0.5.1       crayon_1.3.4

1 Ответ

0 голосов
/ 03 марта 2019

walk по умолчанию передает входное значение в качестве первого не указанного аргумента функции, поэтому в вашем случае это приводит к вызову, подобному:

render_report(file = 4)

Чтобы избежать этого, укажите file аргумент внутриwalk:

param_infos %>% 
  transpose() %>% 
  walk(render_report, file = "summary_cyl.Rmd")

Обратите внимание, что теперь file является аргументом walk, и он будет передан render_report walk.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...