Module:Sports table/CricketRR

Template:Module rating This style for Lua-based Module:Sports table is meant to build group and league tables for cricket competitions which use Net run rate as a ranking criteria (typically One-day or T20 competitions).

Usage

The main command is the {{#invoke:Sports table|main|style=CricketRR}} statement which calls the module and enables you to set everything up. Next, list the positions of the teams as Template:Para, Template:Para, etc for however many teams you need in the table. You can use full team names there without spaces if you want, but using codes (as in the example) can make it easier. For each team you now define the wins, losses, ties, no results and NRR using Template:Para, Template:Para, Template:Para, Template:Para, Template:Para respectively (with TTT replaced by the team code). If you do not define these numbers, they are automatically assumed to be 0. It is good practice though to include them anyway and to align the columns using appropriate spaces , so the code is easy to read. Define the Template:Para parameters which determine what name is shown in the table, you can use wiki markup and templates here as well. The module uses a set of default points values of 2 for a win, 1 for a tie or no result and 0 for a loss, but it is possible to override these and also include bonus points or deductions, as have sometimes been used as well as NRR to separate teams.

---

-- Style for cricket tables
local pp = { }


local function args_points(Args)
    local pts = {}

    -- Do not change these defaults without first checking which tables use them
    pts.win = tonumber(Args['winpoints']) or 2
    pts.tie = tonumber(Args['tiepoints']) or 1
    pts.nr = tonumber(Args['nrpoints']) or 1
    pts.loss = tonumber(Args['losspoints']) or 0
    pts.bonus = tonumber(Args['bonuspoints']) or 1

    return pts
end

local function abbr_header(txt, abbr, show_header_pts, pts)
    if show_header_pts then
        txt = txt .. ' – ' .. pts .. (pts == 1 and ' point' or ' points')
    end

    return '<abbr title="' .. txt .. '">' .. abbr .. '</abbr>'
end

function pp.header(t, Args, p_sub, pos_label, group_col, VTE_text, full_table, results_header_txt)
	-- Load relevant modules
    local yesno = require('Module:Yesno')
	
	-- Create table header
	-- Pre stuff

    local team_width = Args['teamwidth'] or '180'
    local sort_text = yesno(Args['sortable_table'] or 'no') and ' sortable' or ''

	table.insert(t,'{|class="wikitable'..sort_text..'" style="text-align:center;"\n')            			-- Open table

	-- Table title
	if Args['title'] then
        table.insert(t,'|+ ' .. Args['title'] .. '\n')
	end

    --Header specific options
    local show_pts = yesno(Args['show_header_pts'] or 'no')
    local pts = args_points(Args)

	local group_head_text = Args['group_header'] or '<abbr title="Group">Grp</abbr>'
	local team_head_text = Args['team_header'] or 'Team'
    local tie_head_text = Args['tie_header'] or abbr_header('Tied', 'T', show_pts, pts.tie)
    local nr_head_text  = Args['nr_header']  or abbr_header('No result', 'NR', show_pts, pts.nr)
    local bonus_head_text = Args['bonus_header'] or '<abbr title="Bonus points">BP</abbr>'
    local deduct_head_text = Args['deduct_header'] or '<abbr title="Deductions">Ded</abbr>'
    local nrr_head_text = Args['nrr_header'] or '<abbr title="Net run rate">[[Net run rate|NRR]]</abbr>'
    -- 
    local loss_first = yesno(Args['loss_before_tie']  or 'yes')
    local show_tie = yesno(Args['show_tie'] or 'yes')
    local show_nr = yesno(Args['show_nr'] or 'yes')
    local show_deduct = yesno(Args['show_deductions'] or 'no')
    local show_bonus_points = yesno(Args['show_bonus_points'] or 'no')
    local show_nrr = yesno(Args['show_nrr'] or 'yes')
    local show_nrr_fa = yesno(Args['show_nrr_fa'] or 'no') and show_nrr

    -- Initialize
    local tt = {}
	tt.count = 0 		-- Up by one after every call

    tt.tab_text = t		-- Actual text

	-- Actual headers
    if pos_label ~= nil then
        tt = p_sub.colhead(tt,28,pos_label)								-- Position col
    end

	-- Add group header
	if full_table and group_col then
		tt = p_sub.colhead(tt,28,group_head_text)			-- Group col
	end

    tt = p_sub.colhead(tt, team_width, team_head_text..VTE_text)        -- Team col

    tt = p_sub.colhead(tt,28,'<abbr title="Played">Pld</abbr>')			-- Matches played col
	
	if full_table then

        tt = p_sub.colhead(tt,28,abbr_header('Won','W',show_pts,pts.win)) -- Win col
        local loss_head_text = abbr_header('Lost', 'L', show_pts, pts.loss)
		
        if loss_first then
            tt = p_sub.colhead(tt,28,loss_head_text)					-- Loss col

			if show_tie then
                tt = p_sub.colhead(tt,28,tie_head_text)					-- Tie col
            end
		else
			if show_tie then
                tt = p_sub.colhead(tt,28,tie_head_text)					-- Tie col
            end

            tt = p_sub.colhead(tt, 28, loss_head_text)					-- Loss col
        end
        if show_nr then
            tt = p_sub.colhead(tt,28,nr_head_text)	                    -- No result col
        end
        if show_bonus_points then
            tt = p_sub.colhead(tt,28,bonus_head_text)	                -- Bonus points col
        end
        if show_deduct then
            tt = p_sub.colhead(tt,28,deduct_head_text)	                -- Deduction col
        end
    end

    tt = p_sub.colhead(tt, 28, '<abbr title="Points">Pts</abbr>')       -- Points col
	
	if full_table then
        if show_nrr then
            tt = p_sub.colhead(tt,28,nrr_head_text)	                    -- NRR col
        end
        if show_nrr_fa then
            tt = p_sub.colhead(tt, 60, 'For')
            tt = p_sub.colhead(tt, 60, 'Against')
        end
        tt.count = tt.count+1
		table.insert(tt.tab_text, results_header_txt)
    end
 
	return tt
end


local function rr_to_dec(runs, overs, balls_per_over)
    if overs == 0 then
        return 0
    end
    local balls = overs % 1
    return runs / (overs - balls + balls * 10 / balls_per_over)
end


function pp.row(frame, t, Args, p_sub, notes_exist, hth_id_list, full_table, rand_val, team_list, team_code_ii, ii_start, ii_end, ii_fw, bg_col, N_teams, ii, ii_show)
	-- Build the inner parts of individual rows
	
	-- Sub-module usage
    local mm = require('Module:Math')
    local yesno = require('Module:Yesno')

    -- table options, to match those in the header        
    local loss_first = yesno(Args['loss_before_tie']  or 'yes')
    local show_tie = yesno(Args['show_tie'] or 'yes')
    local show_nr = yesno(Args['show_nr'] or 'yes')
    local show_bonus_points = yesno(Args['show_bonus_points'] or 'no')
    local show_deduct = yesno(Args['show_deductions'] or 'no')
    local show_nrr = yesno(Args['show_nrr'] or 'yes')
    local show_nrr_fa = yesno(Args['show_nrr_fa'] or 'no') and show_nrr

    -- Get some input
    local wins = tonumber(Args['win_'..team_code_ii])       or 0
	local ties = tonumber(Args['tie_'..team_code_ii])       or 0
 	local losses = tonumber(Args['loss_'..team_code_ii])    or 0
	local noresults = tonumber(Args['nr_'..team_code_ii])   or 0
    local bonuses = tonumber(Args['bonus_'..team_code_ii])  or 0
    local deductions = tonumber(Args['ded_'..team_code_ii]) or 0
    local nrr = tonumber(Args['nrr_'..team_code_ii]) or nil

    local oversbowled = tonumber(Args['ob_'..team_code_ii])   or 0
 	local runsconceded = tonumber(Args['rc_'..team_code_ii])  or 0
	local oversreceived = tonumber(Args['or_'..team_code_ii]) or 0
	local runsscored = tonumber(Args['rs_'..team_code_ii])    or 0
    local balls_per_over = tonumber(Args['balls_per_over']) or 6

	local hth_local = Args['hth_'..team_code_ii]             or nil
	
	-- Then calculate some values
    local matches = wins + losses + ties + noresults

    local pts = args_points(Args)
    local s_bps = pts.bonus*bonuses
    local points = pts.win*wins + pts.loss*losses + pts.tie*ties + pts.nr*noresults + s_bps - deductions
    
    -- Some local vars
    local hth_string
    local tt_return = p_sub.hth(frame, Args, full_table, hth_id_list, hth_local, notes_exist, team_list, team_code_ii, ii_start, ii_end, rand_val)
    hth_string = tt_return.str

    hth_id_list = tt_return.list
    notes_exist = tt_return.notes_exist

            -- What to rank the teams by
    local ranking_style = Args['ranking_style'] or 'pts'
	local win_fw, win_string, pts_fw, pts_string

    ranking_style = string.lower(ranking_style)
	if ranking_style=='p' or ranking_style=='pts' or ranking_style=='points' then
		-- Based on points
        win_fw = ii_fw

        win_string = ''
		pts_fw = 'font-weight: bold;'
		pts_string = hth_string
	else
		-- Based on wins
        win_fw = 'font-weight: bold;'

        win_string = hth_string
        pts_fw = ii_fw

        pts_string = ''
	end
	
    local nrr_for = rr_to_dec(runsscored, oversreceived, balls_per_over)
    local nrr_against = rr_to_dec(runsconceded, oversbowled, balls_per_over)

    -- Set Net Run Rate. This is probabaly over-engineered and could just be done with a single precalculated value
    if nrr ~= nil then
        nrr = mm._precision_format(nrr, 3)
    elseif (oversbowled == 0) or (oversreceived == 0) then -- if 0 or null then have mdash rather than 0?
       nrr = '&mdash;'
    else
        nrr = mm._precision_format(nrr_for - nrr_against, 3)
    end

	-- Row building
    table.insert(t,'| style="'..ii_fw..bg_col..'" |'..matches..'\n') 		-- Played

	if full_table then
		-- Use actual values if wins, ties, and losses are not numeric. Copied this from other module.
		if (wins == 0 and ties == 0 and losses == 0) then
            local function numorval(s)
				return s and((s == '' and 0) or tonumber(s) or s) or 0
			end
            wins = numorval(Args['win_'..team_code_ii])
            ties = numorval(Args['tie_'..team_code_ii])
            losses = numorval(Args['loss_'..team_code_ii])
        end
        table.insert(t,'| style="'..win_fw..bg_col..'" |'..wins..win_string..'\n')  -- Won
        if loss_first then
            table.insert(t,'| style="'..ii_fw..bg_col..'" |'..losses..'\n')             -- Lost
            if show_tie then
                table.insert(t,'| style="'..ii_fw..bg_col..'" |'..ties..'\n') 	        -- Ties
            end
        else
            if show_tie then
                table.insert(t,'| style="'..ii_fw..bg_col..'" |'..ties..'\n') 	        -- Ties
            end
            table.insert(t,'| style="'..ii_fw..bg_col..'" |'..losses..'\n')             -- Lost
        end
        if show_nr then
            table.insert(t,'| style="'..ii_fw..bg_col..'" |'..noresults..'\n')         -- No Results
        end
	    if show_bonus_points then
		    if s_bps< 0 then
                table.insert(t,'| style="'..bg_col..'" | &minus;'..-s_bps..'\n')
		    else
			    table.insert(t,'| style="'..bg_col..'" | '..s_bps..'\n')
		    end
    	end
    	if show_deduct then 
    	table.insert(t,'| style="'..ii_fw..bg_col..'" | '..deductions..'\n')
    	end
	end
	if points<0 then
        table.insert(t,'| style="'..pts_fw..bg_col..'" | &minus;'..-points..pts_string..'\n')
	else
		table.insert(t,'| style="'..pts_fw..bg_col..'" | '..points..pts_string..'\n')
	end
	if full_table then
        if show_nrr then
            table.insert(t,'| style="'..ii_fw..bg_col..'" |'..nrr..'\n') 		-- Net run rate
        end
        if show_nrr_fa then
            local nrr_for_text = oversreceived > 0 and runsscored..'/'..oversreceived or '&mdash;'
            local nrr_against_text = oversbowled > 0 and runsconceded..'/'..oversbowled or '&mdash;'
            table.insert(t, '| data-sort-value="'..nrr_for..'" style="'..ii_fw..bg_col..'" |'..nrr_for_text..'\n')
            table.insert(t, '| data-sort-value="'..nrr_against..'" style="'..ii_fw..bg_col..'" |'..nrr_against_text..'\n')
        end
    end

	return {t=t, notes_exist=notes_exist, hth_id_list=hth_id_list}
end

function pp.status(Args)
	-- Declare status options
	-- ------------------------------------------------------------
	-- NOTE: If you add to status_code, also add to status_called and status_letters!!
	-- Or functionality will be compromised
	-- ------------------------------------------------------------
	local status_code, status_called = {},{}

    status_code = {	A='Advances to a further round', C='Champion', D='Disqualified', 
		E='Eliminated', G='Guest', H='Host', O='Play-off winner', P='Promoted', Q='Qualified to the phase indicated',
		R='Relegated', T='Qualified, but not yet to the particular phase indicated' }
	
	local status_letters = (Args['status_order'] or '') .. 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

    -- Status position(before or after read and default)

    local stat_pos_val = string.lower(Args['status_pos'] or '')
	local status_position = 'after'-- Default location
	if stat_pos_val=='before' then
        status_position = 'before'
    elseif stat_pos_val=='after' then
        status_position = 'after'
    end
	
	for l in mw.text.gsplit(status_letters, '') do
		status_called[l] = false
		status_code[l] = status_code[l] or '?'
		status_letters = mw.ustring.gsub(status_letters, '(' .. l..'.-)' .. l, '%1')

		if Args['status_text_'..l] then
            status_code[l] = Args['status_text_'..l]
        end
     end
	
	return {code=status_code, called=status_called, letters=status_letters, position=status_position}
end

return pp