1.4 Inline R-Code

1.4.1 Referenzieren mit Inline-Bedingung

Kann ich nicht je nach Outputformat eine statische oder interaktive Tabelle erzeugen?

Leider kann das Vorgehen wie unter Abschnitt 1.3.2 beschrieben für DT-Tabellen (HTML-Widget) nicht empfohlen werden. Da in HTML die interaktive htmlwidget-Tabelle als Abbildung aufgefasst wird, aber als Tabelle in PDF, ergeben sich unterschiedliche Nummerierungen in HTML und PDF. Zwar sind die Nummerierungen innerhalb eines Dokuments konsistent, aber man muss stets darauf achten, ob man die Tabelle mit \@ref(tab:Tabellenbezeichnung) (HTML) oder mit \@ref(fig:Tabellenbezeichnung) (PDF) referenziert.

Wie referenziere ich nun auf die Tabelle, wenn sie einmal eine Tabelle und einmal eine Abbildung ist? Probieren wir es anhand der folgenden Tabelle aus.

Abbildung 1.4: htmlWidgetTableCondition

Folgende Markdown-Textschnipsel ergeben zum Teil unterschiedlichen Text in PDF und HTML.

1. See Table \@ref(tab:htmlWidgetTableCondition) will work in PDF, but not in HTML.
1. See Table \@ref(fig:htmlWidgetTableCondition) will work in HTML (and Word btw.), but not in PDF.
1. See Table \@ref(htmlWidgetTableCondition) is just not correct here.
1. See Table `r ifelse ( knitr:::is_html_output(), '\\@ref(fig:htmlWidgetTableCondition)', '\\@ref(tab:htmlWidgetTableCondition)' )` will work in any Output, but is a bit monstrous.
  1. See Table ?? will work in PDF, but not in HTML.
  2. See Table 1.4 will work in HTML (and Word btw.), but not in PDF.
  3. See Table ?? is just not correct here.
  4. See Table 1.4 will work in any Output, but is a bit monstrous.

1.4.2 Inline R-Output und bedingte Textanzeige

Letztlich können wir mithilfe von Inline-R-Code auf jede R-Variable zurückgreifen und überall bedingte Textbausteine in die Thesis einfügen, was vor allem beim Report statistische Analysen sehr nütztlich ist.

Fahrzeuge mit Automatikgetriebe haben 
`r if (t.test(gear~am, data=mtcars)$p.value > 0.05) 'nicht'` 
signifikant mehr oder weniger Gänge als Autos mit manuellem Schaltgetriebe.

Fahrzeuge mit Automatikgetriebe haben signifikant mehr oder weniger Gänge als Autos mit manuellem Schaltgetriebe.
Im Schnitt haben alle Autos des mtcars-Datensatzes mean(mtcars$hp)= 146.6875PS.