R/redcap_read_shiny_module.R
is_valid_token.Rd
Validate REDCap token
is_valid_token(token, pattern_env = NULL, nchar = 32)
token
pattern
logical
token <- paste(sample(c(1:9, LETTERS[1:6]), 32, TRUE), collapse = "") is_valid_token(token) #> [1] TRUE