R/get_StreetType.R

Defines functions do_oZTC static_assert get_StreetCode get_oZTC get_StreetType

# For debugging use only
# nocov start

get_StreetType <- function(x) {
  stopifnot(is.integer(x))
  .Call("C_get_StreetType", x, PACKAGE = packageName())
}
get_oZTC <- function() {
  .Call("C_get_oZTC", 0L, PACKAGE = packageName())
}

get_StreetCode <- function(x) {
  .Call("C_get_StreetCode", x, PACKAGE = packageName())
}

static_assert <- function() {
  .Call("C_StaticAssert", 0L, PACKAGE = "healthyAddress")
}

do_oZTC <- function() {
  a <- m <- NULL
  DT <- data.table(a = get_StreetType(0:273),
                   m = get_StreetCode(0:273))
  DT[, cat(strwrap(toString(order(m) - 1)), sep = "\n")]
}
# nocov end

Try the healthyAddress package in your browser

Any scripts or data that you put into this service are public.

healthyAddress documentation built on April 12, 2025, 1:28 a.m.