The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

vindecodr

The goal of vindecodr (pronounced “VIN decoder”) is to provide an efficient programmatic interface to the US Department of Transportation (DOT) National Highway Transportation Safety Administration (NHTSA) vehicle identification number (VIN) decoder API, located at https://vpic.nhtsa.dot.gov/api/.

Installation

You can install the released version of vindecodr from CRAN with:

install.packages("vindecodr")

Or you can install the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("burch-cm/vindecodr")

Loading

Load the library in R by calling library():

library(vindecodr)

Examples

Check the VIN for Errors:

VINs must be 17 digits long and cannot contain certain characters (I, O Q). In addition, vehicles sold in North America have a “check digit” in position 9 of the VIN. This check digit must equal the result of a calculation applied to the other VIN digits for the VIN to be considered valid.

{vindecodr} contains tools to validate the length, characters, and check digit of a given VIN or VINs, and to guess at any disallowed characters, which often creep into VIN records when recorded by hand.

The main function to check a number of VINs is check_vin(), which takes a character vector of VINs to check. If {purrr} is present, check_vin() will try to use it, otherwise a less-efficient loop will be used to iterate over the VINs.

vins <- c("WDBEA30D3HA391172", "3VWLL7AJ9BM053541")
check_vin(vins)
#> [1] TRUE TRUE

check_vin() looks at the length of the VINs, checks for disallowed characters (and attempts to correct them with guess = TRUE), and compares the result of the VIN check digit calculation with the digit in the check digit position of the VIN (the 9th position).

To check just the length and disallowed characters, use valid_vin_format()

valid_vin_format("WDBEA30D3HA391172")
#> [1] TRUE

To check the validity of the check digit, use valid_check_digit()

valid_check_digit("WDBEA30D3HA391172")
#> [1] TRUE

This can also return the check digit itself:

valid_check_digit("WDBEA30D3HA391172", value = TRUE)
#> [1] "3"

Find the Make and Model for a Given VIN:

Managed fleet vehicle systems often need to confirm the information they have on file for a particular vehicle, such as the make, model, fuel type, etc. This can easily be accomplished by comparing the records on file with the manufacturer’s values as encoded in the VIN.

given_vin <- "1C4BJWFGXDL531773"

vehicle_details <- decode_vin(given_vin)

knitr::kable(vehicle_details)

Single VINs are passed to the Decode API Endpoint.
The same call can be used for up to 50 VINs. When multiple VINs are provided, the Batch API Endpoint is used instead.

library(vindecodr)

given_vins <- c("1C4BJWFGXDL531773",
                "JTHFF2C26B2515141",
                "WDBRF40J43F433102")

vehicle_details <- decode_vin(given_vins)
knitr::kable(vehicle_details[1:3])

See the NHTSA API Documentation for more detail on API endpoints.

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.