R/nwos_table_number.R

In familyforestresearchcenter/nwos: An R Package for Working with USDA Forest Service, National Woodland Owner Survey Data

#' nwos_round
#'
#' Converts units (e.g., to thousands) and rounds simialr to base except it adds another digit for values less than 1
#' @details For area and cooperation rate tables see ...
#' nwos_table_number(1100)
#' nwos_table_number(900)
#' nwos_table_number(0)
#' nwos_table_number(NA)
#' @export

nwos_table_number <- function(x, d = 0, less.one = T) {
  if(less.one) {
    ifelse(length(x) == 0, "--",
           ifelse(x < 1, "$<$1",
                  formatC(round(x, d), big.mark = ",", format = "f", digits = d)))}
  else formatC(round(x, d), big.mark = ",", format = "f", digits = d)
}