dewittpe/exampleTableMultcol.Rhtml

## exampleTableMultcol.Rhtml
<!DOCTYPE html>
<html>
<head>
  <title>Example of a table with two header rows and one spanning multiple columns</title>
</head>
<body>
<h1> Example of a table with two header rows - year spanning two columns (n and %). </h1>

Create a silly example table:

<!--begin.rcode
tab <- table(mtcars$cyl)
tab <- cbind(tab, paste0("(", round(prop.table(tab)*100, 1), ")"))
tab <- cbind(tab, tab)
colnames(tab) <- rep(c("n", "(%)"), 2)
rownames(tab) <- paste(rownames(tab), "cly")
  end.rcode-->


Create the html code here as follows and the table is below.  The Gmisc package is helpful.

<!--begin.rcode, results = 'asis'
library(Gmisc)

temp <- htmlTable(tab, file = "exampleTable.tex", append = TRUE, title = "",
                  cgroup = c("Year 1", "Year 2"), n.cgroup = c(2, 2))
cat(temp)
  end.rcode-->

</body>
</html>
	<!DOCTYPE html>
	<html>
	<head>
	<title>Example of a table with two header rows and one spanning multiple columns</title>
	</head>
	<body>
	<h1> Example of a table with two header rows - year spanning two columns (n and %). </h1>

	Create a silly example table:

	<!--begin.rcode
	tab <- table(mtcars$cyl)
	tab <- cbind(tab, paste0("(", round(prop.table(tab)*100, 1), ")"))
	tab <- cbind(tab, tab)
	colnames(tab) <- rep(c("n", "(%)"), 2)
	rownames(tab) <- paste(rownames(tab), "cly")
	end.rcode-->


	Create the html code here as follows and the table is below. The Gmisc package is helpful.

	<!--begin.rcode, results = 'asis'
	library(Gmisc)

	temp <- htmlTable(tab, file = "exampleTable.tex", append = TRUE, title = "",
	cgroup = c("Year 1", "Year 2"), n.cgroup = c(2, 2))
	cat(temp)
	end.rcode-->

	</body>
	</html>