[help] tar_render within tar_map for parametrized mapped targets #181
-
Help
DescriptionI have a # Works but overwrite results
targets::tar_dir({
targets::tar_script({
c("---
title: report
output: md_document
params:
par: 4
db: mtcars
---
```{r, echo = FALSE}
cat('par:', params$par)
cat('db:', dim(params$db))
cat('val:', params$db$val)
```
") |>
writeLines("report.Rmd")
tarchetypes::tar_map(
values = list(.par = 1:2),
targets::tar_target(val, data.frame(val = .par)),
tarchetypes::tar_render(
report,
"report.Rmd",
# output = paste0("report_", .par, ".html"),
params = list(par = .par, db = val)
)
)
})
targets::tar_make()
cat(list.files(), "\n")
readLines("report.md") |> paste0(collapse = "\n") |> cat()
})# Does not find `.par` to compose the output name
targets::tar_dir({
targets::tar_script({
c("---
title: report
output: md_document
params:
par: 4
db: mtcars
---
```{r, echo = FALSE}
cat('par:', params$par)
cat('db:', dim(params$db))
cat('val:', params$db$val)
```
") |>
writeLines("report.Rmd")
tarchetypes::tar_map(
values = list(.par = 1:2),
targets::tar_target(val, data.frame(val = .par)),
tarchetypes::tar_render(
report,
"report.Rmd",
output = paste0("report_", .par, ".html"),
params = list(par = .par, db = val)
)
)
})
targets::tar_make()
cat(list.files(), "\n")
readLines("report.md") |> paste0(collapse = "\n") |> cat()
})## Works with dynamic branching
targets::tar_dir({
targets::tar_script({
c("---
title: report
output: md_document
params:
par: 4
db: mtcars
---
```{r, echo = FALSE}
cat('par:', params$par)
cat('db:', dim(params$db))
cat('val:', params$db$val)
```
") |>
writeLines("report.Rmd")
tarchetypes::tar_map(
values = list(.par = 1:2),
targets::tar_target(val, data.frame(val = .par)),
tarchetypes::tar_render_rep(
report,
"report.Rmd",
params = data.frame(par = .par, db = I(val))
)
)
})
targets::tar_make()
cat(list.files(), "\n")
list.files(pattern = "\\.md$") |>
purrr::map_chr(\(x) readLines(x) |> paste0(collapse = "\n")) |>
paste0(collapse = "\n\n\n") |>
cat()
})Created on 2024-07-05 with reprex v2.1.0 Session infosessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#> setting value
#> version R version 4.4.1 (2024-06-14 ucrt)
#> os Windows 11 x64 (build 26120)
#> system x86_64, mingw32
#> ui RTerm
#> language (EN)
#> collate English_United States.utf8
#> ctype English_United States.utf8
#> tz Europe/Berlin
#> date 2024-07-05
#> pandoc 3.1.11 @ C:/Program Files/RStudio/resources/app/bin/quarto/bin/tools/ (via rmarkdown)
#>
#> ─ Packages ───────────────────────────────────────────────────────────────────
#> ! package * version date (UTC) lib source
#> P backports 1.5.0 2024-05-23 [?] RSPM
#> P base64url 1.4 2018-05-14 [?] CRAN (R 4.4.0)
#> P callr 3.7.6 2024-03-25 [?] RSPM (R 4.4.0)
#> P cli 3.6.3 2024-06-21 [?] RSPM
#> P codetools 0.2-20 2024-03-31 [3] CRAN (R 4.4.1)
#> P data.table 1.15.4 2024-03-30 [?] CRAN (R 4.4.0)
#> P digest 0.6.36 2024-06-23 [?] CRAN (R 4.4.1)
#> P evaluate 0.24.0 2024-06-10 [?] RSPM
#> P fansi 1.0.6 2023-12-08 [?] RSPM (R 4.4.0)
#> P fastmap 1.2.0 2024-05-15 [?] RSPM
#> P fs 1.6.4 2024-04-25 [?] RSPM (R 4.4.0)
#> P glue 1.7.0 2024-01-09 [?] RSPM (R 4.4.0)
#> P htmltools 0.5.8.1 2024-04-04 [?] RSPM (R 4.4.0)
#> P igraph 2.0.3 2024-03-13 [?] CRAN (R 4.4.0)
#> P knitr 1.47 2024-05-29 [?] CRAN (R 4.4.0)
#> P lifecycle 1.0.4 2023-11-07 [?] RSPM (R 4.4.0)
#> P magrittr 2.0.3 2022-03-30 [?] RSPM (R 4.4.0)
#> P pillar 1.9.0 2023-03-22 [?] RSPM (R 4.4.0)
#> P pkgconfig 2.0.3 2019-09-22 [?] RSPM (R 4.4.0)
#> P processx 3.8.4 2024-03-16 [?] RSPM (R 4.4.0)
#> P ps 1.7.7 2024-07-02 [?] CRAN (R 4.4.1)
#> P purrr 1.0.2 2023-08-10 [?] RSPM (R 4.4.0)
#> P R6 2.5.1 2021-08-19 [?] RSPM (R 4.4.0)
#> P reprex 2.1.0 2024-01-11 [?] CRAN (R 4.4.0)
#> P rlang 1.1.4 2024-06-04 [?] CRAN (R 4.4.0)
#> P rmarkdown 2.27 2024-05-17 [?] RSPM
#> P rstudioapi 0.16.0 2024-03-24 [?] RSPM (R 4.4.0)
#> P secretbase 1.0.0 2024-06-16 [?] CRAN (R 4.4.1)
#> P sessioninfo 1.2.2 2021-12-06 [?] RSPM (R 4.4.0)
#> P targets 1.7.1 2024-06-20 [?] CRAN (R 4.4.1)
#> P tibble 3.2.1 2023-03-20 [?] RSPM (R 4.4.0)
#> P tidyselect 1.2.1 2024-03-11 [?] RSPM (R 4.4.0)
#> P utf8 1.2.4 2023-10-22 [?] RSPM (R 4.4.0)
#> P vctrs 0.6.5 2023-12-01 [?] RSPM (R 4.4.0)
#> P withr 3.0.0 2024-01-16 [?] RSPM (R 4.4.0)
#> P xfun 0.45 2024-06-16 [?] RSPM
#> P yaml 2.3.8 2023-12-11 [?] RSPM (R 4.4.0)
#>
#> [1] C:/Users/corra/AppData/Local/R/cache/R/renv/library/anvur.accademies.gpt-ebd9193f/windows/R-4.4/x86_64-w64-mingw32
#> [2] C:/Users/corra/AppData/Local/R/cache/R/renv/sandbox/windows/R-4.4/x86_64-w64-mingw32/e0da0d43
#> [3] C:/Program Files/R/R-4.4.1/library
#>
#> P ── Loaded and on-disk path mismatch.
#>
#> ────────────────────────────────────────────────────────────────────────────── |
Beta Was this translation helpful? Give feedback.
Answered by
CorradoLanera
Jul 11, 2024
Replies: 1 comment 3 replies
-
|
Hello, |
Beta Was this translation helpful? Give feedback.
3 replies
-
|
That's a great suggestion. Alternatively, |
Beta Was this translation helpful? Give feedback.
-
|
@ginolhac , your suggestion was fantastic and permitted me to solve the issue, but not directly that way. basically the main points are:
and, on top of everything, it is your suggestion: reprex solution# My solution
targets::tar_dir({
targets::tar_script({
c("---
title: report
output: md_document
params:
par: 4
db: mtcars
---
```{r, echo = FALSE}
cat('par:', params$par)
# data are passed inside a list, so params$db[[1]] to extract them
cat('db dims:', dim(params$db[[1]]))
cat('val:', params$db[[1]]$val)
```
") |>
writeLines("report.Rmd")
mapped <- tarchetypes::tar_map(
values = list(.par = 1:2),
targets::tar_target(val, data.frame(val = .par))
)
list(
mapped,
tarchetypes::tar_combine(
combi,
mapped[["val"]],
# we have dataframes as parameters so we need some black magic
# here to have a dataframe with a column containing dataframes
command = tibble::enframe(list(!!!.x)) |>
tidyr::separate_wider_position( # extract parameters
name,
widths = c(par = 3, 1, val = 1),
cols_remove = FALSE # `name` is needed for filename
) |>
dplyr::mutate( # set file names
output_file = paste0(
stringr::str_remove_all(lubridate::today(), "\\D+"),
"_repoort_", name, ".md"
)
) |>
dplyr::select(-name, -val) |> # removed because not params!
dplyr::rename(db = value) # param name inside report
),
tarchetypes::tar_render_rep(
report,
here::here("report.Rmd"),
params = combi
)
)
})
targets::tar_make()
cat(list.files(), "\n")
reports <- stringr::str_c(
stringr::str_remove_all(lubridate::today(), "\\D+"),
"_repoort_val_", 1:2, ".md"
)
readLines(reports[[1]]) |> paste0(collapse = "\n") |> cat()
cat("\n\n\n")
readLines(reports[[2]]) |> paste0(collapse = "\n") |> cat()
})Created on 2024-07-11 with reprex v2.1.0 |
Beta Was this translation helpful? Give feedback.
Answer selected by
CorradoLanera
-
|
very nice, well done! Looking forward to your next comment when you are done. |
Beta Was this translation helpful? Give feedback.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
@ginolhac , your suggestion was fantastic and permitted me to solve the issue, but not directly that way.
I have to create a little more complex example to explain way, I'll do that in the next few days (after finish the project). For the moment: big thank you!
basically the main points are:
name, andvalueare the default colnames forseparate_wider_*and, on top of everyt…