R/random_squids.R

In squids: Short Quasi-Unique Identifiers (SQUIDs)

#' @rdname squids
#' @export
random_squids <- function(x,
                          origin = Sys.time(),
                          follow = NULL,
                          followBy = NULL) {

  res <-
    squids::squids(
      x = x,
      origin = origin,
      follow = follow,
      followBy = followBy
    );

  res <- sample(res);

  return(res);

}