generieren markdown-Kommentare innerhalb der for-Schleife

Ich versuche zu generieren, die einen HTML-Bericht, mit knitr, basiert auf einem R-script for-Schleifen. Ich will generieren markdown Kommentare aus den Kommentaren innerhalb der for-Schleife, aber ich bin nicht sicher, ob es möglich ist.

Hier ist ein einfaches Beispiel, das ist im test.R:

for (i in 1:5) {
    ## This is a heading for `i`
    #' This is a comment for `i`
    print(i)    
}

Dann benutze ich spin zu generieren, die eine Rmd Datei:
spin('test.R')

Jedoch die Rmd-Datei sieht wie folgt aus.

```{r }
for (i in 1:5) {
    ## This is a heading for `i`
    #' This is a comment for `i`
    print(i)    
}
```

Den markdown-Kommentare innerhalb der R-chunk werden nicht kompiliert zu HTML. Ist es möglich?

Dank,
Peter

es klingt wie Sie wollen, um einige R-Codes vor der Konvertierung zu Rmd, während so wie ich es verstehe spin (gefolgt von stricken), tut es die andere Weise herum. Ich denke, brauen Vorlagen könnte hier helfen.
Ich denke, Sie wirklich meinen roxygen-Kommentare anstelle von "Markdown" - Kommentare. Wie @baptiste erwähnt, brew ist mehr anspruchsvoll für diese Art von Aufgaben (erstellen von text aus einer Schleife).
sind Sie richtig. Die R-Datei enthält roxygen-Kommentare, die ich hoffe, wird konvertiert Markdown-Kommentare nach, die ich ausführen spin.
vielen Dank für die Anregungen, ich werde überprüfen brauen.

InformationsquelleAutor pmichaels | 2013-06-18

knitr markdown r roxygen

10

Ich denke, Sie können erhalten, was Sie wollen in knitr mit dem code-chunk-option Ergebnis='asis', die Sie angeben können, nachdem "#+" in ein R-Skript übergeben werden, um zu Spinnen (aber der code sieht weniger "sauber" als die interessanten Gebräu Vorschlag von @daroczig):
```
#+ results='asis', echo = FALSE
for (i in 1:5) {
    cat("## This is a heading for ", i, "\n")
    cat("\n")
    print(i)    
}
```
Wenn dieser test ist.R-Skript ist, und dass Sie spin("test.R"), die daraus resultierende md-Datei wird wie folgt Aussehen :
```
## This is a heading for  1 

[1] 1
## This is a heading for  2 

[1] 2
## This is a heading for  3 

[1] 3
## This is a heading for  4 

[1] 4
## This is a heading for  5 

[1] 5
```
- dies ermöglicht mir, auf Kommentare in den Ausgang, aber die Kommentare sind nicht formatiert Verwendung der Markdown-notation.
- Was meinst du mit Kommentare formatiert mit markdown-notation ? Ist es html-Kommentare, die Sie suchen ? Wenn ja, können Sie es auf die gleiche Weise, siehe mein Beispiel bearbeitet
- (+1), die ich brauchte, um einen zusätzlichen cat('\n') nach print(i) für die Rubriken 2 bis 5 erbracht werden, die als überschriften.
InformationsquelleAutor Gilles
6

One-Lösung, die für mich gearbeitet ist, wird durch den so erstellen Sie eine Schleife, die beide enthält einen code-chunk und text mit knitr in R. Durch die Verwendung Beide results='asis' und zwei Stellplätze vor \n am Ende jeder Schleife.

Beispiel:

, Ohne das zwei Leerzeichen:
```
```{r, results='asis'}
headers <- list("We","are","your","friends")
for (i in headers){
  cat("\n##H ", i, "  \n")
  cat("comment",i)
}
```
Ausgabe (html):

Wie Sie sehen können, die Kommentare und überschriften get messed zusammen

Lösung:
Mit zwei Räumen: cat(" \n") am Ende der Schleife
```
for (i in headers){
  cat("\n##H ", i, "\n")
  cat("comment",i)
  cat("  \n")# <---------------------------------
}
```
Hinweis: cat(" \n") werden muss am Ende, es funktioniert nicht, auch wenn Sie zeichnen oder zu berechnen, etwas, das es in die Schleife.

InformationsquelleAutor user2673238

Habe ich (wieder)implementiert einige Funktionen knitr unabhängig von @Yihui basierend auf brew in meinem pander - Paket, das helfen könnte, mit solchen (und ähnlichen) Problemen, wenn Sie nicht wollen, zu laufen brew vor knitting. Quick demo:

> Pandoc.brew(text = "# Demonstrating a nice loop
+ <% for (i in 1:5) { %>
+ ## This is a header for <%=i%>
+ #' This is a comment for <%=i%>
+ <% } %>")

# Demonstrating a nice loop

## This is a header for _1_
#' This is a comment for _1_

## This is a header for _2_
#' This is a comment for _2_

## This is a header for _3_
#' This is a comment for _3_

## This is a header for _4_
#' This is a comment for _4_

## This is a header for _5_
#' This is a comment for _5_

Bitte beachten Sie: Sie können auch passieren Sie eine Datei zu Pandoc.brew (müssen nicht so lästig setup mit der text argument mit real-life-Probleme), und Sie können auch verwenden <% ... %> tags für z.B. Konditionalsätze (wie zeigen oder nicht Rendern Teil des Berichts). Und am wichtigsten: es gibt einen riesigen Unterschied zwischen <% ... %> (unverarbeitet R-Befehle) und <%= ... %> (die Ergebnisse werden verarbeitet, indem pander) tags. Letzteres bedeutet, dass alle zurückgegebenen R-Objekte transformiert werden, um Pandoc ' s markdown, z.B.:

> Pandoc.brew(text = "# Demonstrating a conditional
+ <% for (i in 1:5) { %>
+ ## This is a header for <%=i%>
+ <% if (i == 3) { %>
+ Hey, that's **almost** <%=pi%>, that's between <%=3:4%>! Wanna fit a model to _celebrate_?
+ <%= lm(mpg ~ hp, mtcars) %>
+ <% }} %>")
# Demonstrating a conditional

## This is a header for _1_

## This is a header for _2_

## This is a header for _3_

Hey, that's **almost** _3.142_, that's between _3_ and _4_! Wanna fit a model to _celebrate_?

--------------------------------------------------------------
     &nbsp;        Estimate   Std. Error   t value   Pr(>|t|) 
----------------- ---------- ------------ --------- ----------
     **hp**        -0.06823    0.01012     -6.742   1.788e-07 

 **(Intercept)**     30.1       1.634       18.42   6.643e-18 
--------------------------------------------------------------

Table: Fitting linear model: mpg ~ hp

## This is a header for _4_

## This is a header for _5_

danke für die Anregung. Ich hatte gehofft, zu vermeiden, zu viele explizite tags in der R-code, aber es ist gut zu wissen, dass es eine Arbeit um.

InformationsquelleAutor daroczig

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.