checkLuhn is package to assist checking PANs (credit/debit card number) or any other number that uses the Luhn algorithum to validte.
The algorithm is in the public domain and is in wide use today. It is specified in ISO/IEC 7812-1. It is not intended to be a cryptographically secure hash function; it was designed to protect against accidental errors, not malicious attacks. Most credit cards and many government identification numbers use the algorithm as a simple method of distinguishing valid numbers from mistyped or otherwise incorrect numbers.
The issuer
function will can return the Card Issuer/Scheme and if that scheme
is active or not
# The easiest way to get checkLuhn:
install.packages("checkLuhn")
To get a bug fix, or use a feature from the development version, you can install dplyr from GitHub.
# install.packages("devtools")
devtools::install_github("adamjdeacon/checkLuhn")
library(checkLuhn)
# Invalid number
input <- "4111 2234 2242 1234"
checkLuhn(input)
[1] FALSE
# Valid number
input <- "34000000 0000 009"
checkLuhn(input)
[1] TRUE
# Check for card type
input <- '378282246310005'
> issuer(input)
# A tibble: 1 x 2
issuer active
<chr> <chr>
1 American Express Yes
If you encounter a clear bug, please file a minimal reproducible example on github.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.