Add documentation on shortening provider names into a readable format

[craig-shenton]

Example from Simon Wellesley-Miller:

library(TM)
library(tidyverse)

# choose words you want to remove from provider names
stopwords = c("HOSPITAL",
              "NHS",
              "FOUNDATION",
              "TRUST",
              "GROUP",
              "SURGICAL",
              "CENTRE")

# remove words from site names
df$org_short <- removeWords(df$organisation_name, stopwords)

# removes extra spaces from site names
df$org_short <- str_squish(df$org_short)