DataStore not Saving?

So I'm working on a DataStore system which loads the player's data when they join and save it when they leave or when the server shuts down. The problem is that when testing the game online, the data doesn't save. I'm not playing with anyone so I don't know if it's the game.OnClose function. I receive no errors in the console too. The code is below, if you could help it would mean a lot to me.

Please take note that this isn't the full script.

local datastore = game:GetService("DataStoreService")

-- When the Player Joins

game.Players.PlayerAdded:connect(function(Player)
    Setup_Leaderstats(Player)
    Setup_StoreStats(Player)
    LoadData(Player, Player:FindFirstChild("leaderstats"))
end)

-- Functions

function Setup_StoreStats(Player)
    local Skins = replicatedstorage.Resources:FindFirstChild("Skins")
    -- Create Storage
    local Storage = Instance.new("IntValue", Player)
    Storage.Name = "Storage"
    -- Selected Skin
    local SelSkin = Instance.new("IntValue", Storage)
    SelSkin.Name = "SelectedSkinTexture"
    -- Create Skin Storage
    local Skns = Instance.new("IntValue", Storage)
    Skns.Name = "Skins"
    for _,v in pairs(Skins:GetChildren()) do
        if v:IsA("IntValue") then
            local newvalue = Instance.new("BoolValue", Skns)
            newvalue.Name = v.Name
        end
    end
    -- Load Skins
    wait(0.5)
    LoadData(Player, Skns)
    LoadData(Player, Storage)
end

function LoadData(player, data)
    local Data = datastore:GetDataStore(player.Name.."Stats")
    --
    for _,v in pairs(data:GetChildren()) do
        --
        v.Value = Data:GetAsync(v.Name)
        --
    end
end

function PermanentSave(Player, data)
    if Player then
        local Data = datastore:GetDataStore(Player.Name.."Stats")
        if data then
        for _,i in pairs(data:GetChildren()) do
            Data:SetAsync(i.Name, i.Value)
        end
        end
        end
end

function SaveAllData(Player)
    PermanentSave(Player, Player:FindFirstChild("Storage"))
    PermanentSave(Player, Player:FindFirstChild("Storage").Skins)
    PermanentSave(Player, Player:FindFirstChild("leaderstats"))
end

-- Player Removing and Game Close

game.Players.PlayerRemoving:connect(function(player)
    if player then
        SaveAllData(player)
    end
end)

game.OnClose = function()
    for i,v in pairs(game.Players:GetChildren()) do
        SaveAllData(v)
    end
end