Replace kable from kniter with some useful preset options

Usage

kable(data, ...)

Arguments

data: object, something to be transform in a table
...: some parameters that will be used in original kable

Value

Somthing to be used as a table in latex format

Author

Frédéric Grelot

Examples


temp = head(iris)[c(5, 1:4)]
temp[["Species"]] = as.character(temp[["Species"]])
kable(temp)
#> \begin{table}
#> \centering
#> \begin{tabular}{lrrrr}
#> \toprule
#> Species & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width\\
#> \midrule
#> setosa & 5.1 & 3.5 & 1.4 & 0.2\\
#> setosa & 4.9 & 3.0 & 1.4 & 0.2\\
#> setosa & 4.7 & 3.2 & 1.3 & 0.2\\
#> setosa & 4.6 & 3.1 & 1.5 & 0.2\\
#> setosa & 5.0 & 3.6 & 1.4 & 0.2\\
#> \addlinespace
#> setosa & 5.4 & 3.9 & 1.7 & 0.4\\
#> \bottomrule
#> \end{tabular}
#> \end{table}
temp = rbind(temp, c(Species = "mean", as.list(colMeans(temp[-1]))))
kable(temp, -1)
#> \begin{table}
#> \centering
#> \begin{tabular}{llrrrr}
#> \toprule
#>   & Species & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width\\
#> \midrule
#> 1 & setosa & 5.1 & 3.5 & 1.4 & 0.20\\
#> 2 & setosa & 4.9 & 3.0 & 1.4 & 0.20\\
#> 3 & setosa & 4.7 & 3.2 & 1.3 & 0.20\\
#> 4 & setosa & 4.6 & 3.1 & 1.5 & 0.20\\
#> 5 & setosa & 5.0 & 3.6 & 1.4 & 0.20\\
#> \addlinespace
#> 6 & setosa & 5.4 & 3.9 & 1.7 & 0.40\\
#> 7 & mean & 5.0 & 3.4 & 1.4 & 0.23\\
#> \bottomrule
#> \end{tabular}
#> \end{table}
temp = rbind(temp, c("units", "mm", "mm", "mm", "mm"))
kable(temp, -1)
#> \begin{table}
#> \centering
#> \begin{tabular}{llllll}
#> \toprule
#>   & Species & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width\\
#> \midrule
#> 1 & setosa & 5.1 & 3.5 & 1.4 & 0.2\\
#> 2 & setosa & 4.9 & 3 & 1.4 & 0.2\\
#> 3 & setosa & 4.7 & 3.2 & 1.3 & 0.2\\
#> 4 & setosa & 4.6 & 3.1 & 1.5 & 0.2\\
#> 5 & setosa & 5 & 3.6 & 1.4 & 0.2\\
#> \addlinespace
#> 6 & setosa & 5.4 & 3.9 & 1.7 & 0.4\\
#> 7 & mean & 4.95 & 3.38333333333333 & 1.45 & 0.233333333333333\\
#> 8 & units & mm & mm & mm & mm\\
#> \bottomrule
#> \end{tabular}
#> \end{table}