I have a huge list of addresses that are all uppercase. I would like to convert to title case, but preserve the uppercase for the cardinal directions, e.g. NE, NW, SE, SW.

```
address <- c("14615 SE CREEKSIDE DRIVE")
stringr::str_to_title(address)

# this returns 
14615 Se Creekside Drive

# desired result
14615 SE Creekside Drive

```