Why isn't datastore saving correctly?

Ok, so here is my datastore. As you can see, it is a table of values that are saved.

When I change one thing in the character creator, it saves just fine, but if I customise more than a couple of things, it just refuses to save.

I had used a while wait do loop for every few seconds, and it was fine, but I want to refrain from doing so, otherwise the player will have to wait a minute just for the changes to save.

local Defaults = {

    Stats = {Level = 1, Experience = 0, Health = 0, Melee = 0, Weapon = 0, Fruit = 0, Ability = "None"};

    Inventory = {
        Weapons = {};
        Fruits = {};
        KeyItems = {};
        Other = {};
    };


    Appearance = {
        Hair = "Hair1";
        Shirt = "Short";
        Pants = "Short";
        Shoes = "Sandals";
        Tone = "Pastel Brown";
        HairPrimary = {0, 0, 0};
        ShirtPrimary = {0, 0, 0};
        ShirtSecondary = {0, 0, 0};
        PantsPrimary = {0, 0, 0};
        PantsSecondary = {0, 0, 0};
        ShoesPrimary = {0, 0, 0};
    };

    Codes = {};
    Equipment = {};
}


local datalist = {}

local store = game:GetService("DataStoreService")
local getstore = store:GetDataStore("Playerstats1")
local runservice = game:GetService("RunService")

local writedata = function(key, savedtable, newdata)

    if newdata.dataloaded == nil then return end
    if newdata.dataloaded == true then

        local succeed, errored = pcall(function()
            getstore:SetAsync(key, savedtable)
        end)
        if succeed then
            print("New Data saved successfully")
        else
            warn("Newdata has not been saved. Reason: "..errored)
        end


    end
end



game:GetService("Players").PlayerAdded:Connect(function(plr)

    datalist[plr.UserId] = {}
    local newdata = datalist[plr.UserId]
    newdata.dataloaded = false

    local key = plr.UserId
    local savedtable

    local success, errormessage = pcall(function()
        savedtable = getstore:GetAsync(key)
    end)

    if success then

        if savedtable ~= nil then
            newdata.dataloaded = true
            newdata.mydata = savedtable

        else
            --new  player
            savedtable = Defaults
            newdata.mydata = savedtable
            newdata.dataloaded = true


            writedata(key, savedtable, newdata)
        end

    else    
        --failed to load data
        newdata.dataloaded = false
        wait()
        plr:Kick("Failed to load data. Rejoin to try again.")
    end


    coroutine.resume(coroutine.create(function()
        local remotes = game:GetService("ReplicatedStorage"):WaitForChild("RemoteEvents")
        local loadcharacterdata = remotes:WaitForChild("LoadCharacterData")
        loadcharacterdata:Fire(plr, savedtable, "Completely")--creates avatar using given data
    end))
end)

local updatedata = function(plr)

    local key = plr.UserId
    local newdata = datalist[plr.UserId]
-----------------------------------------------------------
    if newdata.dataloaded == nil or newdata.dataloaded == false then
        plr:Kick()
    else
        print("player has data")
    end
----------------------------------------------------------- 
    local savingdata = newdata.mydata
    if not savingdata then
        plr:Kick()
    end

    local successfully, warningmessage = pcall(function()
        getstore:SetAsync(key, savingdata)
    end)

    if successfully then
        --data successfully saved
        print("save successful")    
    else
        warn("warning, data could not be saved! Retrying!")
        local retry_count = 0
        while retry_count <6 do
            wait(60)
            local success, errormessage = pcall(function()
                getstore:SetAsync(key, savingdata)
            end)
            if success then
                break
            else
                retry_count = retry_count + 1
            end
        end
    end

end


game:GetService("Players").PlayerRemoving:Connect(updatedata)

game:BindToClose(function()
    if runservice:IsStudio() then
        print("is studio")
        return
    else
        if not runservice:IsStudio() then
            print("not in studio")
            for i, v in pairs(game:GetService("Players"):GetPlayers()) do
                updatedata(v)
            end
        end
    end
end)


local remotes = game:GetService("ReplicatedStorage"):WaitForChild("RemoteEvents")
local loadcharacterdata = remotes:WaitForChild("LoadCharacterData")
local sethair = remotes:WaitForChild("SetHair")
local setshirt = remotes:WaitForChild("SetShirt")
local setpants = remotes:WaitForChild("SetPants")
local setshoes = remotes:WaitForChild("SetShoes")
local settone = remotes:WaitForChild("SetTone")
local sethaircolour = remotes:WaitForChild("SetHairColour")
local setshirtcolour = remotes:WaitForChild("SetShirtColour")
local setpantscolour = remotes:WaitForChild("SetPantsColour")
local setshoescolour = remotes:WaitForChild("SetShoesColour")

sethair.Event:Connect(function(plr, id)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.Hair = tostring(id)
    loadcharacterdata:Fire(plr, mydata, "Hair")--creates avatar using given data
end)

setshirt.Event:Connect(function(plr, id)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.Shirt = tostring(id)
    loadcharacterdata:Fire(plr, mydata, "Shirt")--creates avatar using given data
end)

setpants.Event:Connect(function(plr, id)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.Pants = tostring(id)
    loadcharacterdata:Fire(plr, mydata, "Pants")--creates avatar using given data
end)

setshoes.Event:Connect(function(plr, id)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.Shoes = tostring(id)
    loadcharacterdata:Fire(plr, mydata, "Shoes")--creates avatar using given data
end)

settone.Event:Connect(function(plr, id)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.Tone = tostring(id)
    loadcharacterdata:Fire(plr, mydata, "Tone") --creates avatar using given data
end)

sethaircolour.Event:Connect(function(plr, h, s, value)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.HairPrimary[1] = tonumber(h)
    mydata.Appearance.HairPrimary[2] = tonumber(s)
    mydata.Appearance.HairPrimary[3] = tonumber(value)
end)

setshirtcolour.Event:Connect(function(plr, h, s, value)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.ShirtPrimary[1] = tonumber(h)
    mydata.Appearance.ShirtPrimary[2] = tonumber(s)
    mydata.Appearance.ShirtPrimary[3] = tonumber(value)
end)

setpantscolour.Event:Connect(function(plr, h, s, value)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.PantsPrimary[1] = tonumber(h)
    mydata.Appearance.PantsPrimary[2] = tonumber(s)
    mydata.Appearance.PantsPrimary[3] = tonumber(value)
end)

setshoescolour.Event:Connect(function(plr, h, s, value)
    local newdata = datalist[plr.UserId]
    if not newdata then return end

    local mydata = newdata.mydata
    if not mydata then return end

    mydata.Appearance.ShoesPrimary[1] = tonumber(h)
    mydata.Appearance.ShoesPrimary[2] = tonumber(s)
    mydata.Appearance.ShoesPrimary[3] = tonumber(value)
end)

I'm looking for answers as to why this could be happening.