我在编写代码迷宫时遇到问题，它会反复洗牌。我写了一句洗牌的行，但每次牌组都以同样的方式洗牌。我需要帮助编写代码，以便每次都以不同的方式洗牌。
shuffling <-sample(deck,length(deck))
random r random-seed
r ×1
random ×1
random-seed ×1