05_nhsnumber.Rmd

---
title: "nhsnumber"
subtitle: "Part 4 of the RStudio Tips and Tricks Series"
author: "Jeremy Allen"
date: "Nov 2, 2021, updated on `r Sys.Date()`"
output:
  html_document:
    highlight: zenburn
    theme:
      bg: "#303436"
      fg: "#9da9af"
      primary: "#ff8080"
      base_font:
        google: "Roboto"
      code_font:
        google: "JetBrains Mono"
editor_options: 
  chunk_output_type: console
self_contained: true
---
---

<br>  
<br>  

<https://nhsnumber.sellorm.com/>

![](images/nhs.png)

```{r packages, message=FALSE, warning=FALSE, include=FALSE}

library(nhsnumber)

```

## Check validity

```{r}

x <- c(9876543210, 1234567890, 1234567881)

nhsnumber::is_valid(x)

```

## Get checksum

```{r}

nhsnumber::get_checksum(123456788)

```

## Full output

```{r}

nhsnumber::get_checksum(123456788, full_output = TRUE)

```

## Bad numbers

```{r echo=TRUE, eval=FALSE}

nhsnumber::get_checksum(123456789)

```

![](images/checksum_error.png)