Module:Indicator datasets table

From Visual Data Wiki
Jump to navigation Jump to search

Documentation for this module may be created at Module:Indicator datasets table/doc

function p.generateTable(frame)
    local datasets = p.getDatasets(frame)
    if not datasets or #datasets == 0 then
        return "" -- Keine Datensätze gefunden, gib leeren String zurück
    end

    -- Sortiere die Datensätze nach dem Datum
    table.sort(datasets, function(a, b) return a.schemas.Dataset['date'] < b.schemas.Dataset['date'] end)

    local html = mw.html.create()
    local tableNode = html:tag('table'):addClass('wikitable')

    -- Erstelle die Tabelle mit Legenden aus dem ersten Datensatz
    local headerRow = tableNode:tag('tr')
    headerRow:tag('th'):wikitext('Class')
    headerRow:tag('th'):wikitext('Sub-class')
    for _, dataset in ipairs(datasets) do
        local formattedDate = p.formatDate(dataset.schemas.Dataset['date'])
        headerRow:tag('th'):wikitext(formattedDate)
    end

    -- Füge die Datenzeilen hinzu
    for _, classData in ipairs(datasets[1].schemas.Dataset.classes) do
        local class = classData['class name']
        for _, subClassData in ipairs(classData['sub-classes']) do
            local subClass = subClassData['sub-class name']
            local row = tableNode:tag('tr')
            row:tag('td'):wikitext(class)
            row:tag('td'):wikitext(subClass)
            for _, dataset in ipairs(datasets) do
                local value = "N/A"
                for _, currentClassData in ipairs(dataset.schemas.Dataset.classes) do
                    if currentClassData['class name'] == class then
                        for _, currentSubClassData in ipairs(currentClassData['sub-classes']) do
                            if currentSubClassData['sub-class name'] == subClass then
                                value = ""
                                for _, currentSubSubClassData in ipairs(currentSubClassData['sub-sub-classes']) do
                                    value = value .. (currentSubSubClassData.value or "N/A") .. ", "
                                end
                                value = value:sub(1, -3) -- Entferne das letzte Komma und Leerzeichen
                                break
                            end
                        end
                        break
                    end
                end
                row:tag('td'):wikitext(value)
            end
        end
    end
    return tostring(html)
end

-- Funktion zur Formatierung des Datums gemäß den Nutzereinstellungen
function p.formatDate(date)
    local userDatePrefs = mw.language.new(mw.title.getCurrentTitle().rootText):formatDate('Y-m-d', 'now')
    return mw.language.new(mw.title.getCurrentTitle().rootText):formatDate(userDatePrefs, date)
end

return p