Wie kombiniert man zwei RMarkdown (.Rmd) -Dateien zu einer einzigen Ausgabe?

Ich habe zwei Dateien im gleichen Ordner: Kapitel1.Rmd und kapitel2.Rmd, mit folgendem Inhalt:

Kapitel1.Rmd

---
title: "Chapter 1"
output: pdf_document
---

## This is chapter 1. {#Chapter1}

Next up: [chapter 2](#Chapter2)

kapitel2.Rmd

---
title: "Chapter 2"
output: pdf_document
---

## This is chapter 2. {#Chapter2}

Previously: [chapter 1](#Chapter1)

Wie kann ich stricken Sie diese so, dass Sie vereinen in einer einzigen pdf-Ausgabe?

Natürlich render(input = "chapter1.Rmd", output_format = "pdf_document") funktioniert perfekt, aber render(input = "chapter1.Rmd", input = "chapter2.Rmd", output_format = "pdf_document") nicht.

Warum ich dies tun wollen? Zu brechen, eine Riesen-Dokument in logischen Dateien.

Ich habe @hadley 's bookdown Paket zu bauen latex aus .Rmd-aber das scheint wie overkill für diese Besondere Aufgabe. Gibt es eine einfache Lösung mit knitr/pandoc/linux-Kommandozeile fehlt mir? Danke.

InformationsquelleAutor der Frage RobinLovelace | 2014-09-13

  1. 89

    Ich bin mir nicht sicher, das ist genau das, was du suchst, aber wenn ich brechen will einen großen Bericht in separate Rmd, ich in der Regel erstellen Sie eine übergeordnete Rmd und umfassen die Kapitel als Kinder. Dieser Ansatz ist auch einfach, für neue Benutzer zu verstehen. Es schafft nicht ein schöner Titel für jedes Kapitel, aber so lange, wie Sie ein Inhaltsverzeichnis, es ist leicht zu navigieren zwischen den Kapiteln. Ein Fallstrick dabei ist, dass alle chunk-Namen, die zwischen allen Eltern/Kinder müssen eindeutig sein.

    Bericht.Rmd 

    ---  
title: My Report  
output: 
  pdf_document:
    toc: yes 
---

```{r child = 'chapter1.Rmd'}
```

```{r child = 'chapter2.Rmd'}
```

    Kapitel1.Rmd 

    # Chapter 1

This is chapter 1.

```{r}
1
```

    kapitel2.Rmd

    # Chapter 2

This is chapter 2.

```{r}
2
```

    Bauen

    rmarkdown::render('report.Rmd')

    Produziert:
    Wie kombiniert man zwei RMarkdown (.Rmd) -Dateien zu einer einzigen Ausgabe?

    Und wenn Sie wollen einen schnellen Weg, um die Stücke für Ihr Kind-Dokumente:

    rmd <- list.files(pattern = '*.Rmd', recursive = T, include.dirs = T)
chunks <- paste0("```{r child = '", rmd, "'}\n```\n")
cat(chunks, sep = '\n')
# ```{r child = 'chapter1.Rmd'}
# ```
#
# ```{r child = 'chapter2.Rmd'}
# ```

    InformationsquelleAutor der Antwort Eric

  2. 4

    Dieser arbeitete für mich:

    Rmd_bind <- 
    function(dir = ".",
    book_header = readLines(textConnection("---\ntitle: 'Title'\n---")))
{
    old <- setwd(dir)
    if(length(grep("book.Rmd", list.files())) > 0){
    warning("book.Rmd already exists")
    }
    write(book_header, file = "book.Rmd", )
    cfiles <- list.files(pattern = "*.Rmd", )
    ttext <- NULL
    for(i in 1:length(cfiles)){
    text <- readLines(cfiles[i])
    hspan <- grep("---", text)
    text <- text[-c(hspan[1]:hspan[2])]
    write(text, sep = "\n", file = "book.Rmd", append = T)
    }
    render("book.Rmd", output_format = "pdf_document")
    setwd(old)
    }

    Vorstellen, dass es eine bessere Lösung und wäre schön, etwas zu haben, wie dies in rmarkdown oder knitr-Pakete.

    InformationsquelleAutor der Antwort RobinLovelace

Schreibe einen Kommentar