tests/test_pwdecode.R

library(ribiosUtils)
##dyn.load("/apps/bi/apps/ribios/ribiosUtils/src/endec.so")

test <- " \\001\\000\\141\\314\\033\\033\\033\\033\\033\\142\\303\\056\\166\\311\\037\\042"

stopifnot(identical("HSV", pwdecode(test)))

stopifnot(identical("abcs", pwdecode("abcs")))

Try the ribiosUtils package in your browser

Any scripts or data that you put into this service are public.

ribiosUtils documentation built on March 13, 2020, 2:54 a.m.