Nothing
NumberSuffix2Raw <- function(x) {
.Call("C_NumberSuffix2Raw", x, PACKAGE = packageName())
}
NumberSuffixFromRaw <- function(x) {
all_suffixes <-
c("A", "", "B", "C", "D", "F", "R", "S", "E", "G", "H", "L",
"M", "U", "P", "V", "K", "J", "N", "I", "T", "O", "Q", "W", "X",
"Z", "Y", "AA", "J1", "BC", "BA", "GF", "AB", "OA", "SE", "NW",
"\\A", "GZ", "BB", "M1", "GX", "TT", "CD", "23", "35", "T3",
"GR", NA, "14")
all_suffixer <- NumberSuffix2Raw(all_suffixes)
all_suffixes[match(as.integer(x), as.integer(all_suffixer))]
}
get_suffix <- function(Address) {
.Call("Cget_suffix", Address, PACKAGE = packageName())
}
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.