HTML-Tables/makeHtmlTable.m at main · gulley/HTML-Tables · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
function sOut = makeHtmlTable(M, T, rowNames, colHeaders, colors, strPrecision)
%MAKEHTMLTABLE  Display matrix contents as an HTML table
%   makeHtmlTable(M) where M is an array
%   makeHtmlTable(M, T) where T is a cell array of strings equal in size
%   to M. The contents of T are displayed preferentially when T is not empty.
%   makeHtmlTable(M, T, rowNames, colHeaders) where colHeaders and
%   rowNames are cell arrays.
%   makeHtmlTable(M, T, rowNames, colHeaders, colors) where colors is a
%   standard three-column colormap. Color is scaled like in IMAGESC. NaNs
%   in M are mapped to the color white.
%   makeHtmlTable(M, T, rowNames, colHeaders, colors, strPrecision) where
%   strPrecision specifies the digits of precision displayed as explained
%   in MAT2STR.
%
%   Example:
%   makeHtmlTable([1 2; 3 4])

%   Author: Ned Gulley
%   Copyright 2009 The MathWorks, Inc.

if nargin < 6
    % Use full precision
    strPrecision = 15;
end

[nr,nc] = size(M);
TM = cell(size(M));
for i = 1:nr
    for j = 1:nc
        TM{i,j} = mat2str(M(i,j),strPrecision);
    end
end

if (nargin < 2) || isempty(T)
    T = TM;
else
    [nrt,nct] = size(T);
    if (nrt ~= nr) || (nct ~= nc)
        error('Input matrices M and T must be the same size')
    end
    for i = 1:nr
        for j = 1:nc
            if isempty(T{i,j})
                T{i,j} = TM{i,j};
            end
        end
    end
end

if nargin < 4
    colHeaders = [];
    rowNames = [];
end

if (nargin < 5) || isempty(colors)
    colorFlag = false;
else
    colorFlag = true;
end


% I threw this color flag in for fun.
if colorFlag
    minM = nanmin(M(:));
    maxM = nanmax(M(:));
    if maxM == minM
        colorFlag = false;
    else
        normM = (M-minM)/(maxM-minM);
        [nColors,three] = size(colors);
        if three ~= 3
            error('Colormap must have three columns')
        end
        % Turn normM into an integer map into the color table
        normM = floor(normM*(nColors-1))+1;

        % Any cells marked with NaN will be white;
        normM(isnan(normM)) = nColors + 1;
        colors = [colors; 1 1 1];
    end
end


s = {};

s{end+1} = sprintf('<html><table border="1" cellpadding="4" cellspacing="0">\n');

if ~isempty(colHeaders)
    s{end+1} = sprintf('<tr>');
    s{end+1} = sprintf('<td></td>');
    for j = 1:nc
        s{end+1} = sprintf('<td>');
        s{end+1} = sprintf('%s',colHeaders{j});
        s{end+1} = sprintf('</td>');
    end
    s{end+1} = sprintf('</tr>\n');
end


for i = 1:nr
    s{end+1} = sprintf('<tr>');
    if ~isempty(rowNames)
        s{end+1} = sprintf('<td>%s</td>',rowNames{i});
    end

    for j = 1:nc
        if colorFlag
            s{end+1} = sprintf('<td style="background:#%s%s%s">', ...
                dec2hex(floor(255*colors(normM(i,j),1)),2), ...
                dec2hex(floor(255*colors(normM(i,j),2)),2), ...
                dec2hex(floor(255*colors(normM(i,j),3)),2));
        else
            s{end+1} = sprintf('<td>');
        end
        s{end+1} = sprintf('%s', T{i,j});
        s{end+1} = sprintf('</td>');
    end
    s{end+1} = sprintf('</tr>\n');
end

s{end+1} = sprintf('</table></html>\n');

if nargout==1
    sOut = s;
else
    for i = 1:length(s)
        fprintf('%s',s{i});
    end
end


% =========================================================================
function hexStr = rgb2hexStr(color)
hexStr = dec2hex(floor(255*color),2);