library(pivottabler) pt <- PivotTable$new() pt$addData(bhmtrains) pt$addColumnDataGroups("TrainCategory") pt$addRowDataGroups("TOC") pt$defineCalculation(calculationName="TotalTrains", summariseExpression="n()") cat(pt$getLatex(caption="An example table", label="basictable"))
library(pivottabler) pt <- PivotTable$new() pt$addData(bhmtrains) pt$addColumnDataGroups("TrainCategory") pt$addRowDataGroups("TOC") pt$defineCalculation(calculationName="TotalTrains", caption="# Trains", summariseExpression="n()") pt$defineCalculation(calculationName="MaxSpeed", caption="Max. Speed", summariseExpression="max(SchedSpeedMPH, na.rm=TRUE)") cat(pt$getLatex(caption="A larger table", label="largertable"))
library(pivottabler) pt <- PivotTable$new() pt$addData(bhmtrains) pt$addColumnDataGroups("TrainCategory") pt$addRowDataGroups("TOC") pt$defineCalculation(calculationName="TotalTrains", summariseExpression="n()") cat(pt$getLatex(caption="An example table with italic headings", label="italicstable", italicHeadings=TRUE))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.