halftable {MQMF}

halftable halves the height of a tall narrow data.frame for printing

Description

halftable would be used when printing a table using kable from knitr where one of the columns was Year. The objective would be to split the table in half taking the bottom half and attaching it on the right hand side of the top half. The year column would act as the index.

Usage

halftable(inmat, yearcol = "year", subdiv = 2)

Arguments

inmat

the data.frame to be subdivided

yearcol

the column name of the year field default="year"

subdiv

the number of times the data.frame should be subdivided; the default is 2 but the numbers can only be 2 or 3.

Value

a data.frame half the height and double the width of the original

Examples

x <- as.data.frame(matrix(runif(80),nrow=20,ncol=4))
x[,1] <- 1986:2005
x[,4] <- paste0("text",1:20)
halftable(x,yearcol="V1",subdiv=2)
halftable(x[,c(1,2,4)],yearcol="V1")
x1 <- rbind(x,x[1,])
x1[21,"V1"] <- 2006
halftable(x1,yearcol="V1",subdiv=3)