settings <- sqids::sqids_options()
id <- sqids::encode(c(1, 2, 3), settings) # "86Rf07"
numbers <- sqids::decode(id, settings) # vector(1, 2, 3)

settings <- sqids::sqids_options(min_length=10)
id <- sqids::encode(c(1, 2, 3), settings) # "86Rf07xd4z"
numbers <- sqids::decode(id, settings) # vector(1, 2, 3)

settings <- sqids::sqids_options(
  alphabet = "k3G7QAe51FCsPW92uEOyq4Bg6Sp8YzVTmnU0liwDdHXLajZrfxNhobJIRcMvKt"
)
id <- sqids::encode(c(1, 2, 3), settings) # "XRKUdQ"
numbers <- sqids::decode(id, settings) # vector(1, 2, 3)