有没有办法在R中实现Xorshift32算法？

# Xorshift32算法实现
xorshift32 <- function(seed) {
  state <- as.integer(seed)
  
  next <- function() {
    state <<- bitwXor(state, bitwShiftL(state, 13))
    state <<- bitwXor(state, bitwShiftR(state, 17))
    state <<- bitwXor(state, bitwShiftL(state, 5))
    return(state)
  }
  
  return(list(next = next))
}

# 使用Xorshift32算法生成随机数
rng <- xorshift32(12345)
random_number <- rng$next()