My DataStore script will not save [?]

local DataStoreService = game:GetService("DataStoreService")
local dataStore = DataStoreService:GetDataStore("TheData")
local warns = game.StarterGui.Warnings
local warnings = warns.Frame.WarnText



game.Players.PlayerAdded:Connect(function(player)


    local stats = Instance.new("Folder",player)
    stats.Name = "leaderstats"

    local coins = Instance.new("IntValue",stats)
    coins.Name = "Coins"
    coins.Value = 100

    local levels = Instance.new("IntValue", stats)
    levels.Name = "Levels"
    levels.Value = 1
    local exp = Instance.new("IntValue", stats)
    exp.Name = "Exp"
    exp.Value = 0
    local mycafeval = Instance.new("NumberValue", stats)
    mycafeval.Name = "OwnsCafe"
    mycafeval.Value = 0


    local data
    local success, err = pcall(function()
        data = dataStore:GetAsync(player.UserId)
    end)

    if success then 
        coins.Value = data[1]
        levels.Value = data [2]
        exp.Value = data [3]

    else
        print("Player has NO data!")
        warnings.Text = "No data to be saved!"

    end

end)
local function saveData(player)
    local tableForSaving = {
        player.leaderstats.coins.Value,
        player.leaderstats.levels.Value,
        player.leaderstats.exp.Value
    }

    local success, err = pcall(function()
        dataStore:SetAsync(player.UserId, tableForSaving)

    end)

    if success then
        print("Data has been saved")
        if success then
            print("Data has been saved")
            warnings.Text = "Data has been saved!"

        else
            print("Failed To Save Data")
            warnings.Text = "Data has not been saved!"
            warn(err)
        end
    end

game.Players.PlayerRemoving:Connect(function(player) -- When a player leaves
    local success, err  = pcall(function()
        saveData(player) -- Save the data
        end)

        if success then
        print("Data has been saved")
        warnings.Text = "Data has been saved!"
        else
        print("Data has not been saved!")
        warnings.Text = "Data has not been saved!"

    end
end)

game:BindToClose(function() -- When the server shuts down
    for _, player in pairs(game.Players:GetPlayers()) do -- Loop through all the players
        local success, err  = pcall(function()
            saveData(player) -- Save the data
        end)

        if success then
            print("Data has been saved")
            warnings.Text = "Data has been saved!"
        else
            print("Data has not been saved!")
            warnings.Text = "Data has not been saved!"
        end
    end
end)

This is my DataSave script but it will not save