cell2tablestr.m

Go to the documentation of this file.

function tableStr=cell2tablestr(titleList,dataCell,colSepSeq,varargin)
import mxberry.core.throwerror;
import mxberry.core.parseparext;
[~,~,isMatlabSyntax,isUniformOutput,minSepCount,numPrecision]=...
    parseparext(varargin,...
    {'isMatlabSyntax','uniformOutput','minSepCount','numPrecision';...
    false,true,1,3;...
    @(x)islogical(x)&&isscalar(x),@(x)islogical(x)&&isscalar(x),...
    @(x)isscalar(x)&&isnumeric(x)&&(x>0)&&(fix(x)==x),...
    @(x)isscalar(x)&&isnumeric(x)&&(x>0)&&(fix(x)==x)},0);
%
[nRows,nCols] = size(dataCell);
%
nRowsRes=nRows;
if ~isempty(titleList)
    nRowsRes=nRowsRes+1;
    dataCell=[titleList;dataCell];
end
%
%% process data cell
dataCell=cellfun(@cellformatter,dataCell,'UniformOutput',false);
%
%% insert separators
resCell=cell(nRowsRes,1);
for iCol=1:(nCols-1)
    dataColCell=dataCell(:,iCol);
    lenColCell=cellfun(@length,dataColCell,'UniformOutput',false);
    lenColVec=cell2mat(lenColCell);
    maxLength=max(lenColVec(:))+minSepCount;
    sepCell=cellfun(@(x)(repmat(colSepSeq,1,maxLength-x)),lenColCell,...
        'UniformOutput',false);
    resCell=strcat(resCell,strcat(dataCell(:,iCol),sepCell));
end
if nRowsRes==0
    nRowsRes=1;
end
if nCols>0
    resCell=strcat(resCell,dataCell(:,end));
else
    resCell=repmat({''},[nRowsRes,1]);
end
%
if isMatlabSyntax
    resCell=cellfun(@horzcat,repmat({'{'},[nRowsRes,1]),resCell,...
        'UniformOutput',false);
    resCell=cellfun(@horzcat,resCell,repmat({'}'},[nRowsRes,1]),...
        'UniformOutput',false);
end
%
%% convert to char array if necessary
%
if isUniformOutput
    tableStr=char(resCell);
else
    tableStr=resCell;
end
    function outCont=cellformatter(inpCont)
        switch class(inpCont)
            case {'double','single'}
                outCont=num2str(inpCont,numPrecision);
            case 'logical'
                outCont=num2str(inpCont);
            case 'struct'
                outCont='<structure>';
            otherwise
                if isnumeric(inpCont)
                    outCont=num2str(inpCont);
                else
                    outCont=inpCont;
                end
        end
    end
end