Generate random-looking IDs from integer ranks

sqids() is an alternative to dplyr::row_number() that generates random-looking IDs from integer ranks using Sqids (formerly Hashids).

IDs that generated with sqids() can be easily decoded back into the original ranks using unsqids().

Usage

sqids(
  x,
  .salt = sample.int(1000, 3),
  .ties = c("sequential", "min", "max", "dense")
)

unsqids(x)

Arguments

x

For sqids(), a vector to rank. You can leave this argument missing to refer to the "current" row number in 'dplyr' verbs.

For unsqids(), a character vector of IDs.

.salt

Integers to use with each value of x to generate IDs.

.ties

Method to rank duplicate values. One of "sequential", "min", "max", or "dense". See ties argument of vctrs::vec_rank() for more details.

Value

For sqids(), a character vector of IDs.

For unsqids(), integers.

See also

sqids/sqids-cpp

Examples

ids <- sqids(c(5, 1, 3, 2, 2, NA))
ids
#> [1] "sV8f2jWQCSF" "nWqBjfLKPN6" "rxCU0lrBpOP" "tSyUzJcFbrQ" "eX6tAl3X00b"
#> [6] NA           
unsqids(ids)
#> [1]  5  1  4  2  3 NA

df <- data.frame(
  grp = c(1, 1, 1, 2, 2, 2, 3, 3, 3)
)
# You can use `sqids()` without referencing `x` in dplyr verbs.
dplyr::mutate(df, sqids = sqids(), row_id = unsqids(sqids))
#>   grp       sqids row_id
#> 1   1 FLGifXgAKol      1
#> 2   1 eV6yJlrR0U9      2
#> 3   1 2jYAj5Oh9kN      3
#> 4   2 gMHvwJ7wC3D      4
#> 5   2 zBcSRwQdmeu      5
#> 6   2 dC4bXwDA0xT      6
#> 7   3 5HQP1ZFioE8      7
#> 8   3 URLhvWEkxMv      8
#> 9   3 Z4MriUca074      9
# Use `.ties` to control how to rank duplicate values.
dplyr::mutate(df, sqids = sqids(grp, .ties = "min"), grp_id = unsqids(sqids))
#>   grp       sqids grp_id
#> 1   1 artKCN8NrN4      1
#> 2   1 artKCN8NrN4      1
#> 3   1 artKCN8NrN4      1
#> 4   2 NEz0oX9dVlL      4
#> 5   2 NEz0oX9dVlL      4
#> 6   2 NEz0oX9dVlL      4
#> 7   3 vzmW9zHm1PZ      7
#> 8   3 vzmW9zHm1PZ      7
#> 9   3 vzmW9zHm1PZ      7
# When you need to generate the same IDs for each group, fix the `.salt`:
dplyr::mutate(df, sqids = sqids(.salt = 1234L), .by = grp)
#>   grp sqids
#> 1   1 Rge1J
#> 2   1 W70Dc
#> 3   1 LQpzb
#> 4   2 Rge1J
#> 5   2 W70Dc
#> 6   2 LQpzb
#> 7   3 Rge1J
#> 8   3 W70Dc
#> 9   3 LQpzb