/*** DO NOT EDIT THIS LINE -----------------------------------------------------
Version:
Title: tbl
Description: creates a dynamic table in __HTML__, __LaTeX__, or __Markdown__.
It can also align each column to left, center, or right, and also create
multiple-colummns for hierarchical tables. This command belongs to
{bf:{help Weaver}} package, but it also supports the {bf:{help MarkDoc}} package.
For using the command in {help MarkDoc} package
[see the MarkDoc documentation on GitHub wiki](https://github.com/haghish/MarkDoc/wiki/tbl)
----------------------------------------------------- DO NOT EDIT THIS LINE ***/
/***
Syntax
======
Creates dynamic table in HTML/Markdown
{cmdab:tbl} {it:(*[,*...] [\ *[,*...] [\ [...]]])} [{cmd:,} {opt tit:le(str)} {opt w:idth(int)} {opt h:eight(int)} {opt left} {opt center} ]
{pstd}where the {bf:*} represents a {it:display directive} which is
{cmd:"}{it:double-quoted string}{cmd:"}
{p 8 16 2}{cmd:`"}{it:compound double-quoted string}{cmd:"'}{p_end}
[{help format:{bf:%}{it:fmt}}] [{cmd:=}]{it:{help exp}}
{cmd:,}
{l}
{c}
{r}
{col #}
Display directives
===========
The supported {it:display directive}s are:
{synoptset 32}
{synopt:{cmd:"}{it:double-quoted string}{cmd:"}}displays the string without
the quotes{p_end}
{synopt:{cmd:`"}{it:compound double-quoted string}{cmd:"'}}display the string
without the outer quotes; allows embedded quotes{p_end}
{synopt:[{cmd:%}{it:fmt}] [{cmd:=}] {cmd:exp}}allows results to be formatted;
see {bf:{mansection U 12.5FormatsControllinghowdataaredisplayed:[U] 12.5 Formats: Controlling how data are displayed}}{p_end}
{synopt:{cmd:,}}separates the directives of each column of the table{p_end}
{synopt:{l}}if placed before any of the directives mentioned above,
this directive create a left-aligned column. {p_end}
{synopt:{c}}creates a center-aligned column. {p_end}
{synopt:{r}}creates a right-aligned column. {p_end}
{synopt:{col #}}if placed before any of the directives mentioned above,
this directive will create a multi-column by merging # number of columns. {p_end}
{p2colreset}{...}
Description
==============
__tbl__ is a command in {help Weaver} package that creates a dynamic table
in HTML or LaTeX, depending on the markup language used in Weaver log.
If Weaver HTML is in use, __tbl__ will be able to interpret the
{help Weaver Markup} codes as well as
{help Weaver_mathematical_notation:Weaver mathematical notations}. In other words,
Weaver Markups and Weaver mathematical notations
can be used as a display directives within the __tbl__ command to alter other
directives or display mathematical signs and formulas. Advanced users can also use HTML
code to alter the table.
If LaTeX markup is used for creating the Weaver log, then {cmd:tbl} command
creates a LaTeX table. However, neither {help Weaver_Markup:Weaver Markup} nor
{help Weaver_mathematical_notation:Weaver mathematical notations} are not
supporting LaTeX. Instead, LaTeX mathematical notations can be
used for writing mathematical notations or altering the table.
Remarks
=======
Note that the tbl command parses the rows using the backslash symbol. Therefore,
to include LATEX notations in a dynamic table that begin with a backslash such as
__\beta__ or __95\%__, double backslash should be used to avoid conflict with
the parsing syntax (e.g. __\\beta__ and __95\\%__ )
Examples
=================
creating a simple 2x3 table with string and numbers
. tbl ("Column 1", "Column 2", "Column 3" {bf:\} 10, 100, 1000 )
creating a table that includes scalars and aligns the columns to left, center, and right respectively
. tbl ({l}"Left", {c}"Centered", {r}"Right" {bf:\} c(os), c(machine_type), c(username))
write mathematical notations
. tbl ("\( \\beta \)", "\( \\epsilon \)" \ "\( \\sum \)", "\( \\prod \)")
Author
======
__E. F. Haghish__
Center for Medical Biometry and Medical Informatics
University of Freiburg, Germany
_and_
Department of Mathematics and Computer Science
University of Southern Denmark
haghish@imbi.uni-freiburg.de
[Weaver Homepage](www.haghish.com/weaver)
Package Updates on [Twitter](http://www.twitter.com/Haghish)
- - -
_This help file was dynamically produced by[MarkDoc Literate Programming package](http://www.haghish.com/markdoc/)_
***/
*capture prog drop tbl
program define tbl
version 11
syntax anything(name=0) [, Width(numlist max=1 >0 <=14000)] ///
[Height(numlist max=1 >0 <=14000)] [left|center] [TITle(str)] ///
[Markup(str)]
local 0 : subinstr local 0 "\(" "//(", all
local 0 : subinstr local 0 "\)" "//)", all
****************************************************************************
* GENERAL SYNTAX PROCESSING
*
* - check that only one of the align options is selected
* - make sure the entery begins and ends with parenthesis
****************************************************************************
capture weaversetup
if "`left'" == "left" & "`center'" == "center" {
di as err `"{p}The {bf:left} and "' ///
`"{bf:center} options cannot be used together"'
exit 198
}
if "`markup'" != "markdown" & "`markup'" != "html" & ///
"`markup'" != "latex" & !missing("`markup'") {
di as err `"{p}markup(`markup') not recognized"'
exit 198
}
local a : di substr(`"`0'"',1,1)
local b : di substr(`"`0'"',-1,1)
if "`a'" ~= "(" | "`b'" ~= ")" {
di as err "{p}The table entery should be placed in parenthesis"
err 198
}
if missing("`center'") & missing("`left'") local center center
****************************************************************************
* ENGINE
* ======
*
* Remove the Paranthesis
* Remove Quotations
* Parse the `0' based on "\"
*
* - the i presents number of rows
* - the content of each row is saved in a local macro "m`i'" to obtain
* each directives of the row
*
* Parse each row based on Comma "," to obtain each directive
****************************************************************************
local len = strlen(`"`macval(0)'"')
local 0 : di substr(`"`0'"',2,`len'-2)
local 0 : subinstr local 0 "###" " $$ ", all
local 0 : subinstr local 0 "##" " $ ", all
local 0 : subinstr local 0 `"$""' "$ {c 34}", all
local 0 : subinstr local 0 `"""' "{c 34}", all
//For interpreting LaTeX Mathematics: behave differently for Weaver and MarkDoc
if "$weaver" ~= "" {
local 0 : subinstr local 0 "$\" "$ \", all
}
else {
local 0 : subinstr local 0 "$\" "{c 36}\", all
}
local 0 : subinstr local 0 "\\" "{c 92}", all //Problematic LaTeX
* local 0 : subinstr local 0 "$ \" "$ {c 92}", all
* local 0 : subinstr local 0 "#\" "{c 92}", all //Problematic LaTeX
* local 0 : subinstr local 0 `"$$""' `"$$ ""', all
* local 0 : subinstr local 0 `"$""' `"{c 36}""', all
* local 0 : subinstr local 0 "$" "{c 36}", all
local i = 0
*tokenize `"`0'"' , parse("\")
tokenize `"`macval(0)'"' , parse("\")
while `"`1'"' ~= "" {
if `"`1'"' ~= "\" {
loc i `++i'
local 1 : subinstr local 1 "//(" "\(", all
local 1 : subinstr local 1 "//)" "\)", all
local m`i' = `"`1'"'
}
macro shift
}
****************************************************************************
* FOR WEAVER PACKAGES
* -------------------
*
* - print the table's title
* - interpret scalars
****************************************************************************
if "$weaver" ~= "" {
html
html
if "$weaverMarkup" == "html" {
if "`title'" ~= "" html <span class="tble`center'">`title'</span>
html <table width="`width'" height="`height'" align="`center'" >
}
if "$weaverMarkup" == "latex" {
html \begin{table}[h]
if !missing("`center'") | missing("`left'") html \centering
if !missing("`left'") html \captionsetup{justification=raggedright,singlelinecheck=false}
if !missing("`title'") html \caption{`title'}
}
forval j = 1/`i' {
local m : display "`m`j''"
if _rc == 0 {
local this 1
}
*tokenize "`m`j''" , parse(",")
if !missing(`this') {
tokenize `"`macval(m)'"' , parse(",")
}
else {
tokenize `"`macval(m`j')'"', parse(",")
}
local col 0
local next 0
local mergedCol 0
// Print the First row
// ===================
if "`j'" == "1" {
if "$weaverMarkup" == "html" html <thead>
if "$weaverMarkup" == "html" html <tr class="header">
while `"`1'"' ~= "" {
if `col' == 0 & "`1'" == "," {
local align // reset the align macro
if "$weaverMarkup" == "html" html <th align="center"> </th>
if "$weaverMarkup" == "latex" local tex`col' " "
local align l
local html`col' left
*loc col `++col'
}
if `"`1'"' ~= "," {
local test
local test1
local test2
local test3
local align // reset the align macro
// MERGING CELLS IN THE FIRST ROW
// ==============================
// Check if there is any cell merge
// remember the sign can be placed at the beginning
// or the end of the text.
if substr("`1'",1,3) == "{c}" {
local 1 : subinstr local 1 "{c}" ""
local align center
}
if substr("`1'",1,3) == "{l}" {
local 1 : subinstr local 1 "{l}" ""
local align left
}
if substr("`1'",1,3) == "{r}" {
local 1 : subinstr local 1 "{r}" ""
local align right
}
if substr("`1'",1,5) == "{col " {
local 1 : subinstr local 1 "{col " ""
//Check if it has 1 or 2 digits
if substr("`1'",2,1) == "}" {
local number : di substr("`1'",1,1)
local 1 : subinstr local 1 "`number'}" ""
}
if substr("`1'",3,1) == "}" {
local number : di substr("`1'",1,2)
local 1 : subinstr local 1 "`number'}" ""
}
if "`number'" == "1" local number
local nomarkdoc 1
}
if substr("`1'",1,3) == "{c}" {
local 1 : subinstr local 1 "{c}" ""
local align center
}
if substr("`1'",1,3) == "{l}" {
local 1 : subinstr local 1 "{l}" ""
local align left
}
if substr("`1'",1,3) == "{r}" {
local 1 : subinstr local 1 "{r}" ""
local align right
}
// The first column by default always left
// ---------------------------------------
if `col' == 0 {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
if missing("`number'") {
if "$weaverMarkup" == "html" {
if missing("`align'") local align left
html <th align= "`align'" style= ///
"padding:3px 10px 2px 2px;"> `1' </th>
local html`col' `align'
}
if "$weaverMarkup" == "latex" {
if missing("`align'") local align l
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
* local 1 : subinstr local 1 "$$ " " $", all
local 1 : subinstr local 1 "{c 92}" "\", all
local texalign `texalign'`align'
local tex`col' `1'
}
}
if !missing("`number'") {
if "$weaverMarkup" == "html" {
if missing("`align'") local align center
html <th colspan="`number'" align="`align'" ///
style="padding:3px 10px 2px 10px;"> `1' </th>
forvalues num = 1/`number' {
local temp = `col'+`num'
local html`temp' `align'
}
}
if "$weaverMarkup" == "latex" {
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local tex`col' \multicolumn{`number'}{c}{`1'}
local align : di _dup(`number') "`align'"
local texalign `texalign'`align'
}
// Creating the merged column if there was a number
local mergedCol = `mergedCol' + `number'
}
}
//The other columns are centered
if `col' > 0 {
/*
local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'")
if "`test'" == "." {
capture local test2 : display `1'
capture local test3 : display int(`test2')
if !missing("`test2'") & "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
else {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
}
*/
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
/*
capture local m : display `1' // for interpreting scalars
if _rc == 0 {
local 1 `m'
}
*/
if missing("`number'") {
if "$weaverMarkup" == "html" {
if missing("`align'") local align center
html <th align= "`align'" style= ///
"padding:3px 10px 2px 10px;"> `1' </th>
if "`mergedCol'" != "0" {
local temp = `col'+`mergedCol'-1
local html`temp' `align'
}
else {
local html`col' `align'
}
}
if "$weaverMarkup" == "latex" {
local tex`col' `1'
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local texalign `texalign'`align'
}
}
if !missing("`number'") {
if "$weaverMarkup" == "html" {
if missing("`align'") local align center
html <th colspan= "`number'" align= ///
"center" tyle="padding:3px 10px 2px 10px;" ///
> `1' </th>
forvalues num = 1/`number' {
local temp = `col'+`mergedCol'+`num'-1
local html`temp' `align'
}
}
if "$weaverMarkup" == "latex" {
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local align : di _dup(`number') "`align'"
local texalign `texalign'`align'
local tex`col' \multicolumn{`number'}{c}{`1'}
}
local mergedCol = `mergedCol' + `number'
}
}
local number //reset the value to nothing
loc col `++col'
}
macro shift
}
if "$weaverMarkup" == "html" {
html </thead>
local htmlColumns `temp' //save the number of columns
}
// PRINT THE FIRST ROW OF THE LATEX TABLE
if "$weaverMarkup" == "latex" {
*local write l //the first column is left-aligned
if !missing(`mergedCol') local mergedCol = `mergedCol' - 1 + `col'
*forval num = 2/`mergedCol' {
* local write `write'c //the other columns centered
*}
html \begin{tabular}{@{}`texalign'@{}}
html \toprule
forval num = 0/`col' {
if `num' < `col'-1 local firstrow `firstrow' `tex`num'' &
if `num' == `col'-1 local firstrow `firstrow' `tex`num'' \\ \midrule
}
html `firstrow'
}
}
// Print the other rows
// ====================
if "$weaverMarkup" == "html" {
if `j' == 2 html <tbody>
}
if `j' > 1 {
// Specify if J is Odd or Even
//----------------------------
if "$weaverMarkup" == "html" {
//if J is Odd
if mod(`j',2) html <tr class="odd">
//if J is even
if !mod(`j',2) html <tr class="even">
}
while `"`1'"' ~= "" {
if `col' == 0 & "`1'" == "," {
if "$weaverMarkup" == "html" html <td align="`html0'"> </td>
if "$weaverMarkup" == "latex" local tex`col' " "
}
//Handle consequent commas
//------------------------
if `col' > 0 & "`1'" == "," {
//If it's the second column or more and the entery
// is ",", then check the next entery. As long as
// the next entery is comma, replace it with
// empty column
while "`1'" == "," {
macro shift
if "`1'" == "," {
if "$weaverMarkup" == "html" html ///
<td align="`html`col''"> </td>
if "$weaverMarkup" == "latex" local tex`col' " "
}
}
}
if `"`1'"' ~= "," {
local test
local test1
local test2
local test3
// MERGING CELLS IN THE OTHER ROW
// ==============================
if substr("`1'",1,5) == "{col " {
local 1 : subinstr local 1 "{col " ""
//Check if it has 1 or 2 digits
if substr("`1'",2,1) == "}" {
local number : di substr("`1'",1,1)
local 1 : subinstr local 1 "`number'}" ""
}
if substr("`1'",3,1) == "}" {
local number : di substr("`1'",1,2)
local 1 : subinstr local 1 "`number'}" ""
}
if "`number'" == "1" local number
local nomarkdoc 1
}
if missing("`number'") {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
if "$weaverMarkup" == "html" {
if `col' == 0 html <td align="`html`col''" ///
style="padding:1px 10px 1px 2px;"> `1' </td>
if `col' > 0 html <td align="`html`next''" ///
style="padding:1px 10px;"> `1' </td>
}
if "$weaverMarkup" == "latex" {
if `col' == 0 local nextrow `1'
if `col' > 0 local nextrow `nextrow' & `1'
}
}
if !missing("`number'") {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
//Always align the merged cells to the center
if "$weaverMarkup" == "html" {
if `col' == 0 html <td colspan="`number'" ///
align="center" style= ///
"border-bottom:solid thin;padding:3px 10px 1px 2px;" ///
> `1' </td>
if `col' > 0 html <td colspan="`number'" ///
align="center" style= ///
"border-bottom:solid thin;padding:3px 10px 1px 10px;" ///
> `1' </td>
local next = `next' + `number' - 1
}
if "$weaverMarkup" == "latex" {
if `col' == 0 local nextrow \multicolumn{`number'}{c}{`1'}
if `col' > 0 local nextrow `nextrow' & \multicolumn{`number'}{c}{`1'}
local tmp1 = `col'+1
local tmp2 = `col'+`number'
local cmidrule \cmidrule(l){`tmp1'-`tmp2'}
}
}
local number //reset the value to nothing
local col `++col'
local next `++next'
}
macro shift
}
if "$weaverMarkup" == "html" html </tr>
if "$weaverMarkup" == "latex" html `nextrow' \\ `cmidrule'
local cmidrule
}
}
if "$weaverMarkup" == "html" {
html </tbody>
html </table>
}
if "$weaverMarkup" == "latex" {
html \bottomrule
html \end{tabular}
html \end{table}
html
}
// FOOT Note
// =========
//if "`foot'" ~= "" {
// html <p style="text-align:`center';font-size:smaller;font-style:italic;">`foot'</p>
// html <br />
//}
}
****************************************************************************
* MarkDoc PACKAGES
* ----------------
*
* - Make sure the smcl log file is on
* - Parse each row "`i'" based on Comma
* - Local `col' saves the number of columns in the table
* - Loop over the content of the "`1'" variable, obtained from tokenize
* 1. If the first entery of the row is missing, leave it empty
* 2. Interpret the scalars
* 3. Obtain the column alignment
* - if log file is off, give a warning instead
****************************************************************************
//if "$weaver" == "" & !missing("`nomarkdoc'") {
// di as txt "{p}(ttable includes {bf:{col #}} and cannot be used in " ///
// "MarkDoc)" _n
//}
if "$weaver" == "" | "$noisyWeaver" == "yes" {
// -----------------------------------------------------------------
// Define the Markup language and print the output
// =================================================================
if missing("`markup'") & !missing("$markdocDefault") {
local markup "$markdocDefault"
}
if missing("`markup'") & missing("$markdocDefault") {
local markup "markdown"
}
// -----------------------------------------------------------------
// Print the title
// -----------------------------------------------------------------
if "`markup'" == "markdown" & !missing("`title'") {
display as txt _n `"> `title'"'
}
if "`markup'" == "html" {
display as txt _n "> "
if !missing("`title'") & !missing("`left'") {
display as txt _n `"> <p class="tble`center'">"' ///
"`title'</p>"
}
}
if "`markup'" == "latex" & !missing("`title'") {
display as txt `"> \begin{table}[h] "'
if !missing("`center'") | missing("`left'") di as txt `"> \centering"'
if !missing("`left'") di as txt `"> \captionsetup{justification=raggedright,singlelinecheck=false}"'
if !missing("`title'") di as txt `"> \caption{`title'} "'
}
forval j = 1/`i' {
local m : display "`m`j''"
if _rc == 0 {
local this 1
}
if !missing(`this') {
tokenize `"`macval(m)'"' , parse(",")
}
else {
tokenize `"`macval(`m`j'')'"', parse(",")
}
local col 0
local next 0
local mergedCol 0
// -----------------------------------------------------------------
// Print the First row
// -----------------------------------------------------------------
if "`j'" == "1" {
display as txt _n "> "
if "`markup'" == "html" {
display as txt `"> <table width="`width'" "' ///
`"height="`height'" align="`center'" >"'
if missing("`left'") & !missing("`title'") {
di as txt "> <caption>`title'</caption>"
}
di as txt `"> <thead>"'
di as txt `"> <tr class="header">"'
}
while `"`1'"' ~= "" {
if `col' == 0 & "`1'" == "," {
local align // reset the align macro
if "`markup'" == "html" di as txt `"> <th align="center"> </th>"'
if "`markup'" == "latex" local tex`col' " "
if "`markup'" == "markdown" {
di "> " _c
di "|" _c
*loc col `++col'
}
local align l
local html`col' left
}
if `"`1'"' == "," & "`markup'" == "markdown" di "|" _c
if `"`1'"' ~= "," {
local test
local test1
local test2
local test3
local align // reset the align macro
// MERGING CELLS IN THE FIRST ROW
// ==============================
// Check if there is any cell merge
// remember the sign can be placed at the beginning
// or the end of the text.
if substr("`1'",1,3) == "{c}" {
local 1 : subinstr local 1 "{c}" ""
local align center
local align`col' center
}
if substr("`1'",1,3) == "{l}" {
local 1 : subinstr local 1 "{l}" ""
local align left
local align`col' left
}
if substr("`1'",1,3) == "{r}" {
local 1 : subinstr local 1 "{r}" ""
local align right
local align`col' right
}
if substr("`1'",1,5) == "{col " {
local 1 : subinstr local 1 "{col " ""
if "`markup'" == "markdown" {
local error 1
//exit 198
}
//Check if it has 1 or 2 digits
if substr("`1'",2,1) == "}" {
local number : di substr("`1'",1,1)
local 1 : subinstr local 1 "`number'}" ""
}
if substr("`1'",3,1) == "}" {
local number : di substr("`1'",1,2)
local 1 : subinstr local 1 "`number'}" ""
}
if "`number'" == "1" local number
local nomarkdoc 1
}
if substr("`1'",1,3) == "{c}" {
local 1 : subinstr local 1 "{c}" ""
local align center
}
if substr("`1'",1,3) == "{l}" {
local 1 : subinstr local 1 "{l}" ""
local align left
}
if substr("`1'",1,3) == "{r}" {
local 1 : subinstr local 1 "{r}" ""
local align right
}
// The first column by default left
// ---------------------------------------
if `col' == 0 {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 34}" "", all
}
}
if "`markup'" == "markdown" {
//Make sure the first character is not "|" e.g. "|e|"
local char : di substr(`"`1'"',1,1)
if "`char'" == "|" di `"> __`1'__"' _c
if "`char'" ~= "|" di `"> `1'"' _c
}
if missing("`number'") {
if "`markup'" == "html" {
if missing("`align'") local align left
di as txt "> <th align=" `""`align'" "' ///
`"style="padding:3px 10px 2px 2px;"> `1' </th>"'
local html`col' `align'
}
if "`markup'" == "latex" {
if missing("`align'") local align l
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
* local 1 : subinstr local 1 "$$ " " $", all
local 1 : subinstr local 1 "{c 92}" "\", all
local texalign `texalign'`align'
local tex`col' `1'
}
}
if !missing("`number'") {
if "`markup'" == "html" {
if missing("`align'") local align center
di as txt `"> <th colspan="`number'" "' ///
`"align="`align'" style="padding:"' ///
`"3px 10px 2px 10px;"> `1' </th>"'
forvalues num = 1/`number' {
local temp = `col'+`num'
local html`temp' `align'
}
}
if "`markup'" == "latex" {
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local tex`col' \multicolumn{`number'}{c}{`1'}
local align : di _dup(`number') "`align'"
local texalign `texalign'`align'
}
// Creating the merged column if there was a number
local mergedCol = `mergedCol' + `number'
}
}
if `col' > 0 {
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
if "`markup'" == "markdown" {
//Make sure the first character is not "|" e.g. "|e|"
local char : di substr(`"`1'"',1,1)
if "`char'" == "|" di `"__`1'__"' _c
if "`char'" ~= "|" di `"`1'"' _c
}
if missing("`number'") {
if "`markup'" == "html" {
if missing("`align'") local align center
di as txt `"> <th align="`align'" "' ///
`"style= "padding:3px 10px 2px 10px;"> "' ///
`"`1' </th> "'
if "`mergedCol'" != "0" {
local temp = `col'+`mergedCol'-1
local html`temp' `align'
}
else {
local html`col' `align'
}
}
if "`markup'" == "latex" {
local tex`col' `1'
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local texalign `texalign'`align'
}
}
if !missing("`number'") {
if "`markup'" == "html" {
if missing("`align'") local align center
di as txt `"> <th colspan= "`number'" "' ///
`"align= "center" tyle="padding:"' ///
`"3px 10px 2px 10px;" > `1' </th>"'
forvalues num = 1/`number' {
local temp = `col'+`mergedCol'+`num'-1
local html`temp' `align'
}
}
if "`markup'" == "latex" {
if missing("`align'") local align c
if "`align'" == "left" local align l
if "`align'" == "center" local align c
if "`align'" == "right" local align r
local 1 : subinstr local 1 "{c 92}" "\", all
local align : di _dup(`number') "`align'"
local texalign `texalign'`align'
local tex`col' \multicolumn{`number'}{c}{`1'}
}
local mergedCol = `mergedCol' + `number'
}
}
local number //reset the value to nothing
loc col `++col'
}
macro shift
}
if "`markup'" == "markdown" {
di " " _c //close the line
if "`j'" == "1" {
//Printing the first column
if "`align0'" == "left" | missing("`align`n''") {
di _n "> :--------" _c
}
else if "`align0'" == "right" di _n "> --------:" _c
else if "`align0'" == "center" di _n "> :--------:" _c
//Printing the following columns
local b = `col' - 1
forvalues n = 1/`b' {
di "|" _c
if "`align`n''" == "center" | missing("`align`n''") {
di ":--------:" _c
}
else if "`align`n''" == "left" di ":--------" _c
else if "`align`n''" == "right" di "--------:" _c
}
di " "
}
}
if "`markup'" == "html" {
di as txt `"> </tr>"'
di as txt `"> </thead>"'
local htmlColumns `temp' //save the number of columns
}
// PRINT THE FIRST ROW OF THE LATEX TABLE
if "`markup'" == "latex" {
*local write l //the first column is left-aligned
if !missing(`mergedCol') local mergedCol = `mergedCol' - 1 + `col'
*forval num = 2/`mergedCol' {
* local write `write'c //the other columns centered
*}
di as txt `"> \begin{tabular}{@{}`texalign'@{}}"'
di as txt `"> \toprule"'
forval num = 0/`col' {
if `num' < `col'-1 local firstrow `firstrow' `tex`num'' &
if `num' == `col'-1 local firstrow `firstrow' `tex`num'' \\ \midrule
}
di as txt `"> `firstrow'"'
}
}
// Print the other rows
// ====================
if "`markup'" == "html" {
if `j' == 2 di as txt `"> <tbody>"'
}
if `j' > 1 {
// Specify if J is Odd or Even
//----------------------------
if "`markup'" == "html" {
//if J is Odd
if mod(`j',2) di as txt `"> <tr class="odd">"'
//if J is even
if !mod(`j',2) di as txt `"> <tr class="even">"'
}
if "`markup'" == "markdown" {
di "> " _c
}
while `"`1'"' ~= "" {
if `col' == 0 & "`1'" == "," {
if "`markup'" == "html" {
di as txt `"> <td align="`html0'"> </td>"'
}
if "`markup'" == "latex" local tex`col' " "
if "`markup'" == "markdown" {
*di "> " _c
di "|" _c
loc col `++col'
}
}
if `"`1'"' == "," & "`markup'" == "markdown" di "|" _c
//Handle consequent commas
//------------------------
if `col' > 0 & "`1'" == "," {
//If it's the second column or more and the entery
// is ",", then check the next entery. As long as
// the next entery is comma, replace it with
// empty column
while "`1'" == "," {
macro shift
if "`1'" == "," {
if "`markup'" == "html" di as txt `">"' ///
`"<td align="`html`col''"> </td>"'
if "`markup'" == "latex" local tex`col' " "
}
}
}
if `"`1'"' ~= "," {
local test
local test1
local test2
local test3
// MERGING CELLS IN THE OTHER ROW
// ==============================
if substr("`1'",1,5) == "{col " {
local 1 : subinstr local 1 "{col " ""
//Check if it has 1 or 2 digits
if substr("`1'",2,1) == "}" {
local number : di substr("`1'",1,1)
local 1 : subinstr local 1 "`number'}" ""
}
if substr("`1'",3,1) == "}" {
local number : di substr("`1'",1,2)
local 1 : subinstr local 1 "`number'}" ""
}
if "`number'" == "1" local number
local nomarkdoc 1
}
if missing("`number'") {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
if "`markup'" == "html" {
if `col' == 0 di as txt `"> <td align="`html`col''" "' ///
`"style="padding:1px 10px 1px 2px;"> `1' </td>"'
if `col' > 0 di as txt `"> <td align="' ///
`""`html`next''" style="padding:1px 10px;"> "' ///
`"`1' </td>"'
}
if "`markup'" == "latex" {
if `col' == 0 local nextrow `1'
if `col' > 0 local nextrow `nextrow' & `1'
}
if "`markup'" == "markdown" {
//Make sure the first character is not "|" e.g. "|e|"
local char : di substr(`"`1'"',1,1)
*if `col' == 0 di "> " _c
if "`char'" == "|" di `"__`1'__"' _c
if "`char'" ~= "|" di `"`1'"' _c
}
}
if !missing("`number'") {
*local 1 : subinstr local 1 "{c 34}" "", all
local test : display real("`1'") // exclude real numbers
if "`test'" == "." {
capture local test2 : display `1' //search scalars
capture local test3 : display int(`test2')
// Integers
if "`test3'" == "`test2'" { //is an integer
capture local m : display `1'
if _rc == 0 {
local 1 `m'
}
}
// Real
else if !missing("`test3'") & "`test3'" != "`test2'" {
capture local m : display %10.2f `1'
if _rc == 0 {
local 1 `m'
}
}
// String Scalar
else if !missing("`test2'") & "`test3'" != "`test2'" {
local 1 `test2'
}
//Strings
if missing("`test2'") {
local 1 : subinstr local 1 "{c 92}" "\", all
local 1 : subinstr local 1 "{c 34}" "", all
}
}
//Always align the merged cells to the center
if "`markup'" == "html" {
if `col' == 0 di as txt `"> <td colspan="' ///
`""`number'"align="center" style="border-"' ///
`"bottom:solid thin;padding:3px 10px 1px 2px;""' ///
`"> `1' </td>"'
if `col' > 0 di as txt `"> <td colspan="' ///
`""`number'" align="center" style="border-"' ///
`"bottom:solid thin;padding:3px 10px 1px "' ///
`"10px;" > `1' </td>"'
local next = `next' + `number' - 1
}
if "`markup'" == "latex" {
if `col' == 0 local nextrow \multicolumn{`number'}{c}{`1'}
if `col' > 0 local nextrow `nextrow' & \multicolumn{`number'}{c}{`1'}
local tmp1 = `col'+1
local tmp2 = `col'+`number'
local cmidrule \cmidrule(l){`tmp1'-`tmp2'}
}
}
local number //reset the value to nothing
local col `++col'
local next `++next'
}
macro shift
}
if "`markup'" == "markdown" di " "
if "`markup'" == "html" di as txt `"> </tr>"'
if "`markup'" == "latex" di as txt `"> `nextrow' \\ `cmidrule'"'
local cmidrule
}
}
if "`markup'" == "markdown" di "> "
if "`markup'" == "html" {
di as txt `"> </tbody>"'
di as txt `"> </table>"'
}
if "`markup'" == "latex" {
di as txt `"> \bottomrule"'
di as txt `"> \end{tabular}"'
di as txt `"> \end{table}"' _n(2)
}
if "`markup'" == "markdown" & !missing("`error'") {
if missing("$weaver") {
di as err `"{p}The {bf:{col #}} sign is not "' ///
"supported in Markdown because Markdown does " ///
"not support nested tables"
}
if !missing("$weaver") & !missing("$noisyWeaver") {
di as txt `"{p}Warning: The {bf:{col #}} sign is not "' ///
"supported in Markdown. The code printed in the Results Window" ///
" is not usable for {help MarkDoc} package. However, if you " ///
"are using {help Weaver}, ignore this warning"
}
}
}
// Check the Status of the log files for Weaver and MarkDoc
/*
qui log query
if "`r(status)'" ~= "on" & "$weaver" == "" {
di as txt _n(2) "{hline}"
di as error "{bf:Warning}" _n
di as txt "{p}log file is off! " _n
di as txt "{c 149} If you wish to use {help weaver} package, turn the html log on"
di as txt "{c 149} If you wish to use {help markdoc} package, turn the smcl log on"
di as txt "{hline}{smcl}" _n
}
*/
end
// DYNAMIC HELP FILE
// ===================================
*markdoc tbl.ado, export(sthlp) replace