Output: Ausgabe von HTML, Knit oder Text

Description Usage Arguments Details Value Author(s) Examples

View source: R/Output.R

Description

HTML : htmlTable::htmlTable

Output.xtable mit xtable lassen sich alternativ r-Objekte ausgeben.

Output.htmlTable: Verarbeitet htmlTable-Objekt als auch Listen oder auch einfach nur ein string. Die Tabelle mit Header usw ist dabei schon vorbereitet. Bei Markdown kommt output=FALSE

Output fur apaTables-Objekte wie zB apa.reg.table

Output.iste: einzeln in einen data.frame transformieren

Output.matrix: umwandeln in einen data.frame

Output.stp25: experimenteller Prototyp

Output mit knitr::kable Funftioniert nur wenn options(knitr.table.format = "latex") gesetzt wird (das gilt nur fuer Pdf)

Output.xtabs und Output.tabl und Output.ftable fuer Tabellen Objekte

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Output(x, ...)

## S3 method for class 'xtable'
Output(
  x,
  caption = attr(x, "heading"),
  digits = attr(x, "digits"),
  output = which_output(),
  ...
)

## S3 method for class 'character'
Output(x, output = which_output(), ...)

## S3 method for class 'vector'
Output(x, output = which_output(), ...)

## S3 method for class 'htmlTable'
Output(x, output = which_output(), ...)

## S3 method for class ''NULL''
Output(x, ...)

## Default S3 method:
Output(x, ...)

## S3 method for class 'psychobject'
Output(x, digits = c(2, 2, 1, 3, 2, 2), ...)

## S3 method for class 'emmGrid'
Output(
  x,
  caption = "Estimated marginal means",
  note = "Least-squares means",
  ...
)

## S3 method for class 'apa_table'
Output(x, output = which_output())

## S3 method for class 'list'
Output(x, output = which_output(), ...)

## S3 method for class 'matrix'
Output(x, output = which_output(), ...)

## S3 method for class 'stp25'
Output(x, output = which_output(), ...)

add_row_df(x, add_row = NULL)

Output_kable(x, ...)

## S3 method for class 'list'
Output_kable(x, ...)

## Default S3 method:
Output_kable(
  x,
  caption = NULL,
  col.names = colnames(x),
  booktabs = TRUE,
  latex_options = c("hold_position"),
  note = NULL,
  output = which_output(),
  print_col = NULL,
  fix_colnames = options()$stp25$language != "",
  ...
)

## Default S3 method:
Text(x, ...)

## S3 method for class 'character'
Text(..., style = 0, char = "-", output = which_output())

## S3 method for class 'table'
Output(x, caption = attr(x, "caption"), note = attr(x, "note"), ...)

## S3 method for class 'xtabs'
Output(x, caption = attr(x, "caption"), note = attr(x, "note"), ...)

## S3 method for class 'ftable'
Output(x, caption = attr(x, "caption"), note = attr(x, "note"), ...)

Arguments

x

Objekt liste oder Dataframe

...

weitere Einstellungen

output

FALSE = NULL, TRUE = print, "html" = htmlTable(), "markdown_html"= htmlTable(), "markdown"= kable(), "text"=kable(... "pandoc") und "word"= flextable()

add_row

list (c("Erste Zeile" = 1, "Dritte" = 3))

col.names

Output_kable: fuer tintPdf format = "latex"

booktabs, latex_options

kable an Latex latex_options = c("hold_position"), latex_options = "scale_down"

Details

markdown: knitr::kable -> kableExtra::kable_styling

Text: knitr::kable

Word: knitr::kable(x, format = "pandoc")

Output_word() flextable::regulartable

Value

HTML oder Textausgabe

Author(s)

Wolfgang Peter

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 require(xtable)
## Load example dataset
data(tli)

## Demonstrate aov
fm1 <- aov(tlimth ~ sex + ethnicty + grade + disadvg, data = tli)
fm1.table <- xtable(fm1)

Output(fm1.table)

# ## Demonstrate lm
fm2 <- lm(tlimth ~ sex*ethnicty, data = tli)
fm2.table <- xtable(fm2)
fm2b <- lm(tlimth ~ ethnicty, data = tli)

Output(fm2.table)
Output(xtable(anova(fm2)))
Output(xtable(anova(fm2b, fm2)))


warp.lm <- lm(breaks ~ wool * tension, data = warpbreaks)
x <- emmeans::emmeans(warp.lm,  ~ wool | tension)
Output(x)


## Not run: 
library(apaTables) 
 basic.reg <- lm(sales ~ adverts + airplay, data=album)
apa.reg.table(basic.reg) %>% Output()


lm_output <- lm(libido ~ dose, data=viagra)
apa.aov.table(lm_output) %>% Output()

APA_Table(lm_output)

APA_Table( aov(libido ~ dose, data=viagra))

block1 <- lm(sales ~ adverts + airplay, data=album)
block2 <- lm(sales ~ adverts*airplay, data=album)
apa.reg.table(block1, block2) %>% Output()
 
## End(Not run) 

df <-   data.frame(
Source = c("A", "B", "C", "F"),
x = 1:4,
y = 1:4,
stringsAsFactors = FALSE
)

# add_row_df(df, c("Erste Zeile" = 1, "Dritte" = 3))

stp4/stp25output documentation built on Sept. 19, 2021, 11:56 a.m.