My Datastore is not working, it said "Unable to cast array." Can anyone help?

"Unable to cast to array." Is what I saw

local DataStoreService = game:GetService("DataStoreService")
local DataStore = DataStoreService:GetDataStore("DataStore")

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

    local Shaggys = Instance.new("Folder")
    Shaggys.Name = "Shaggys"
    Shaggys.Parent = player

    local Shaggy = Instance.new("IntValue")
    Shaggy = Instance.new("IntValue")
    Shaggy.Name = "Shaggy"
    Shaggy.Parent = Shaggys
    local DiscountShaggy = Instance.new("IntValue")
    DiscountShaggy.Name = "DiscountShaggy"
    DiscountShaggy.Parent = Shaggys
    local NeonPinkShaggy = Instance.new("IntValue")
    NeonPinkShaggy.Name = "NeonPinkShaggy"
    NeonPinkShaggy.Parent = Shaggys
    local CrimsonShaggy = Instance.new("IntValue")
    CrimsonShaggy.Name = "CrimsonShaggy"
    CrimsonShaggy.Parent = Shaggys
    local DiscountCrimsonShaggy = Instance.new("IntValue")
    DiscountCrimsonShaggy.Name = "DiscountCrimsonShaggy"
    DiscountCrimsonShaggy.Parent = Shaggys
    local FractalShaggy = Instance.new("IntValue")
    FractalShaggy.Name = "FractalShaggy"
    FractalShaggy.Parent = Shaggys
    local GradientShaggy = Instance.new("IntValue")
    GradientShaggy.Name = "GradientShaggy"
    GradientShaggy.Parent = Shaggys
    local LimeGreenShaggy = Instance.new("IntValue")
    LimeGreenShaggy.Name = "LimeGreenShaggy"
    LimeGreenShaggy.Parent = Shaggys
    local LiterallyShaggy = Instance.new("IntValue")
    LiterallyShaggy.Name = "LiterallyShaggy"
    LiterallyShaggy.Parent = Shaggys
    local NightShaggy = Instance.new("IntValue")
    NightShaggy.Name = "NightShaggy"
    NightShaggy.Parent = Shaggys
    local OrangeShaggy = Instance.new("IntValue")
    OrangeShaggy.Name = "OrangeShaggy"
    OrangeShaggy.Parent = Shaggys
    local PRShag = Instance.new("IntValue")
    PRShag.Name = "PRShag"
    PRShag.Parent = Shaggys
    local PShag = Instance.new("IntValue")
    PShag.Name = "PShag"
    PShag.Parent = Shaggys
    local RSh = Instance.new("IntValue")
    RSh.Name = "RSh"
    RSh.Parent = Shaggys
    local USShaggy = Instance.new("IntValue")
    USShaggy.Name = "USShaggy"
    USShaggy.Parent = Shaggys

    local PlayerUserId = "Player_"..player.UserId
    local DataShaggy
    local DataDiscountShaggy
    local DataNeonPinkShaggy
    local DataCrimsonShaggy
    local DataDiscountCrimsonShaggy
    local DataFractalShaggy
    local DataGradientShaggy
    local DataLimeGreenShaggy
    local DataLiterallyShaggy
    local DataNightShaggy
    local DataOrangeShaggy
    local DataPRShag
    local DataPShag
    local DataRSh
    local DataUSShaggy
    local success, errormessage = pcall(function()
        DataShaggy = DataStore:GetAsync(PlayerUserId)
        DataDiscountShaggy = DataStore:GetAsync(PlayerUserId)
        DataNeonPinkShaggy = DataStore:GetAsync(PlayerUserId)
        DataCrimsonShaggy = DataStore:GetAsync(PlayerUserId)
        DataDiscountCrimsonShaggy = DataStore:GetAsync(PlayerUserId)
        DataFractalShaggy = DataStore:GetAsync(PlayerUserId)
        DataGradientShaggy = DataStore:GetAsync(PlayerUserId)
        DataLimeGreenShaggy = DataStore:GetAsync(PlayerUserId)
        DataLiterallyShaggy = DataStore:GetAsync(PlayerUserId)
        DataNightShaggy = DataStore:GetAsync(PlayerUserId)
        DataOrangeShaggy = DataStore:GetAsync(PlayerUserId)
        DataPRShag = DataStore:GetAsync(PlayerUserId)
        DataPShag = DataStore:GetAsync(PlayerUserId)
        DataRSh = DataStore:GetAsync(PlayerUserId)
        DataUSShaggy = DataStore:GetAsync(PlayerUserId)
    end)
    if success then
        Shaggy.Value = DataShaggy
        DiscountShaggy.Value = DataDiscountShaggy
        NeonPinkShaggy.Value = DataNeonPinkShaggy
        CrimsonShaggy.Value = DataCrimsonShaggy
        DiscountCrimsonShaggy.Value = DataDiscountCrimsonShaggy
        FractalShaggy.Value = DataFractalShaggy
        GradientShaggy.Value = DataGradientShaggy
        LimeGreenShaggy.Value = DataLimeGreenShaggy
        LiterallyShaggy.Value = DataLiterallyShaggy
        NightShaggy.Value = DataNightShaggy
        OrangeShaggy.Value = DataOrangeShaggy
        PRShag.Value = DataPRShag
        PShag.Value = DataPShag
        RSh.Value = DataRSh
        USShaggy.Value = DataUSShaggy
    end
end)
game.Players.PlayerRemoving:Connect(function(player)
    local PlayerUserId = "Player_"..player.UserId
    local DataShaggy = player.Shaggys.Shaggy.Value
    local DataNeonPinkShaggy = player.Shaggys.NeonPinkShaggy.Value
    local DataDiscountShaggy = player.Shaggys.DiscountShaggy.Value
    local DataCrimsonShaggy = player.Shaggys.CrimsonShaggy.Value
    local DataDiscountCrimsonShaggy = player.Shaggys.DiscountCrimsonShaggy.Value
    local DataFractalShaggy = player.Shaggys.FractalShaggy.Value
    local DataGradientShaggy = player.Shaggys.GradientShaggy.Value
    local DataLimeGreenShaggy = player.Shaggys.LimeGreenShaggy.Value
    local DataLiterallyShaggy = player.Shaggys.LiterallyShaggy.Value
    local DataNightShaggy = player.Shaggys.NightShaggy.Value
    local DataOrangeShaggy = player.Shaggys.OrangeShaggy.Value
    local DataPRShag = player.Shaggys.PRShag.Value
    local DataPShag = player.Shaggys.PShag.Value
    local DataRSh = player.Shaggys.RSh.Value
    local DataUSShaggy = player.Shaggys.USShaggy.Value
    local success, errormessage = pcall(function()
        DataStore:SetAsync(PlayerUserId, DataShaggy, DataNeonPinkShaggy, DataDiscountShaggy, DataCrimsonShaggy, DataDiscountCrimsonShaggy, DataFractalShaggy, DataGradientShaggy, DataLimeGreenShaggy, DataLiterallyShaggy, DataNightShaggy, DataOrangeShaggy, DataPRShag, DataPShag, DataRSh)
  end
end)