Unsalt doesn't look like it's working correctly in the examples

[paulhendricks]

# Use various number of characters
unsalt(salt(letters, .n_chars = 0L))

 [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"

unsalt(salt(letters, .n_chars = 1L))

 [1] "faf" "fbf" "fcf" "fdf" "fef" "fff" "fgf" "fhf" "fif" "fjf" "fkf" "flf" "fmf" "fnf" "fof" "fpf" "fqf" "frf"
[19] "fsf" "ftf" "fuf" "fvf" "fwf" "fxf" "fyf" "fzf"

unsalt(salt(letters, .n_chars = 5L))

 [1] "jwimpajwimp" "jwimpbjwimp" "jwimpcjwimp" "jwimpdjwimp" "jwimpejwimp" "jwimpfjwimp" "jwimpgjwimp" "jwimphjwimp"
 [9] "jwimpijwimp" "jwimpjjwimp" "jwimpkjwimp" "jwimpljwimp" "jwimpmjwimp" "jwimpnjwimp" "jwimpojwimp" "jwimppjwimp"
[17] "jwimpqjwimp" "jwimprjwimp" "jwimpsjwimp" "jwimptjwimp" "jwimpujwimp" "jwimpvjwimp" "jwimpwjwimp" "jwimpxjwimp"
[25] "jwimpyjwimp" "jwimpzjwimp"

unsalt(salt(letters))

 [1] "cskvqacskvq" "cskvqbcskvq" "cskvqccskvq" "cskvqdcskvq" "cskvqecskvq" "cskvqfcskvq" "cskvqgcskvq" "cskvqhcskvq"
 [9] "cskvqicskvq" "cskvqjcskvq" "cskvqkcskvq" "cskvqlcskvq" "cskvqmcskvq" "cskvqncskvq" "cskvqocskvq" "cskvqpcskvq"
[17] "cskvqqcskvq" "cskvqrcskvq" "cskvqscskvq" "cskvqtcskvq" "cskvqucskvq" "cskvqvcskvq" "cskvqwcskvq" "cskvqxcskvq"
[25] "cskvqycskvq" "cskvqzcskvq"

# Use other sets of characters to salt with
unsalt(salt(letters, .chars = letters[1:2]), .chars = letters[1:2])

 [1] "abbabaabbab" "abbabbabbab" "abbabcabbab" "abbabdabbab" "abbabeabbab" "abbabfabbab" "abbabgabbab" "abbabhabbab"
 [9] "abbabiabbab" "abbabjabbab" "abbabkabbab" "abbablabbab" "abbabmabbab" "abbabnabbab" "abbaboabbab" "abbabpabbab"
[17] "abbabqabbab" "abbabrabbab" "abbabsabbab" "abbabtabbab" "abbabuabbab" "abbabvabbab" "abbabwabbab" "abbabxabbab"
[25] "abbabyabbab" "abbabzabbab"